Private xmlDoc As Object
Private xmlB64 As Object

Private Sub Form_Load()
    Set xmlDoc = CreateObject("MSXML.DomDocument")
    Set xmlB64 = xmlDoc.createElement("Base64")
    xmlB64.dataType = "bin.base64"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set xmlB64 = Nothing
    Set xmlDoc = Nothing
End Sub

Public Func

Public Sub MakeUrl(sFile As String, Url As String, _
                        Optional IcoIndex As Long = 0)
    Open sFile For Output As #1
        Print #1, "[InternetShortCut]"
        Print #1, "Url=" & Url
     

'clsSNIcon.cls

'gcyun 2007-12-1

Option Explicit

Private Const MAX_TOOLTIP As Integer = 64
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Cons

Option Explicit
Public Function RndKeyMap62() As String()
    Dim strKey As String
    Dim KeyMap(1 To 62) As String
    Dim B As Long
    Dim rndnum As Long

    strKey = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    For B = 1 To 10
        Randomize
      

Function Mov_EDX_DWORD_Ptr_EBX_Add(i As Long) As Long
If i <= 255 Then
OPcode = OPcode + "8B53" + Int2Hex(i, 2)
Else
OPcode = OPcode + "8B93" + Int2Hex(i, 8)
End If
End Function

Function Mov_EDX_DWORD_Ptr_ECX_Add(i As Long) As Long
If i <= 255 Then
OPcode = OPcode + "8B51" + Int2Hex(i, 2)
Else
OPcode = OPcode + "8B91" + Int2Hex(i, 8)
End If
End Function

Function Mov_EDX_DWORD_Ptr_EDX_Add(i As Long) As Long
If i <

孙林的ASM操作类

Option Explicit

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Long, lpThreadAttributes As Any, ByVal dwStackSize As Long, lpStartAddress As Long, l

'cFileCFG.cls

Dim StrArr() As String

Public Function Value_Read(Key As String) As String
      Dim strTemp As String
      Dim lngSet As Long

      For I = LBound(StrArr) To UBound(StrArr)
          lngSet = InStr(StrArr(I), " ")
          If lngSet > 0 Then
   

Option Explicit

'/* IP STATUS flags */
Public Const IP_STATUS_BASE = 11000
Public Const IP_SUCCESS = 0
Public Const IP_BUF_TOO_SMALL = (IP_STATUS_BASE + 1)
Public Const IP_DEST_NET_UNREACHABLE = (IP_STATUS_BASE + 2)
Public Const IP_DEST_HOST_UNREACHABLE = (IP_STATUS_BASE + 3)
Public Const IP_DEST_PROT_UNREACHABLE = (IP_STATUS_BASE + 4)
Public Const IP_DEST_PORT_UNREACHABLE = (IP_STATUS_BASE + 5)
Public Const IP_NO_RESOURCES = (IP_STATUS_BASE +

'-----------cIniPro-----------
' Class:     cIniPro
' Author:    Gcyun
' Date   :    2007-3-27
'
' IniFile Professional beta
'
'-----------------------------
Option Explicit

Private c_sFileName As String
Private c_sSection As String
Private c_sKey As String
Private c_sDefault As String
Private c_lLastReturnCode As Long

#If Win32 Then
     ' Pr