mf.frm

热血助手VB源码....有需要的自己下....

PS(0).SetFocus
End Sub

Private Sub CBF_DropDown(Index As Integer)
CBF(Index).Locked = False
Dim tmpCBF As String
tmpCBF = CBF(Index).Text
CBF(Index).Clear
Dim i As Integer
For i = 1 To 10
CBF(Index).AddItem "F" & i
Next i
If CBF(Index).Text = "" Then CBF(Index).Text = tmpCBF
End Sub


Private Sub CBF_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
CBF(Index).Locked = True
End Sub








Private Sub CBCL_DropDown()
Dim tmp
tmp = CBCL.Text
CBCL.Clear
CBCL.AddItem "声音提示"
CBCL.AddItem "直接关机"
If CBCL.Text = "" Then CBCL.Text = tmp
End Sub

Private Sub CBMode_Click()
CBMode.Locked = True
End Sub

Private Sub CBMode_DropDown()
CBMode.Locked = False
Dim tmp As String
tmp = CBMode.Text
CBMode.Clear
CBMode.AddItem "1024*768"
CBMode.AddItem "800*600窗"
If CBMode.Text = "" Then CBMode.Text = tmp
End Sub

Private Sub CBMode_KeyDown(KeyCode As Integer, Shift As Integer)
CBMode.Locked = True
End Sub

Private Sub CBT_Click()
Saveini "setting", "KeyPressF5", CBT.Text, IniFile
CBT.Locked = True
PS(0).SetFocus
End Sub

Private Sub CBT_DropDown()
CBT.Locked = False
Dim tmpCBT As String
tmpCBT = CBT.Text
CBT.Clear
Dim i As Integer
For i = 1 To 10
CBT.AddItem "Shift+F" & i
Next i
For i = 1 To 10
CBT.AddItem "F" & i
Next i
If CBT.Text = "" Then CBT.Text = tmpCBT
End Sub

Private Sub CBT_KeyDown(KeyCode As Integer, Shift As Integer)
CBT.Locked = True
End Sub







Private Sub CH_Timer()
If CKF(3).Value = 1 Then
      KeyPressFJ (CBF(3).Text)
End If
End Sub


'Private Sub CKBE_Click()
'If CKBE.Value = 1 Then
'    TmpF = CInt(Ncnr(&H45EF724))
'Else
'    TmpF = 0
'End If
'End Sub



Private Sub CKF_Click(Index As Integer)
On Error Resume Next
  If CKF(0).Value = 1 Or CKF(1).Value = 1 Then
     MTT.Enabled = False
     Timer1.Interval = MTT.Text
     Timer1.Enabled = True
  Else
     MTT.Enabled = True
     Timer1.Enabled = False
     Dim z As Integer
     For z = 1 To 11
         MF.MA(z).Enabled = True
     Next z
          MF.CmdSaveJZ.Enabled = True
          MF.CmdNet.Enabled = True
  End If
  Select Case Index
       Case 0
            If CKF(Index).Value = 1 Then
               Tmpj = Right(MF.CBF(0).Text, Len(MF.CBF(0).Text) - 1)
               Tmpj = (Tmpj - 1) * 4
               CBF(Index).Enabled = False
               HPD.Enabled = False
            Else
               CBF(Index).Enabled = True
               HPD.Enabled = True
            End If
       Case 1
            If CKF(Index).Value = 1 Then
            Tmpi = Right(MF.CBF(1).Text, Len(MF.CBF(1).Text) - 1)
            Tmpi = (Tmpi - 1) * 4
               CBF(Index).Enabled = False
               MPD.Enabled = False
            Else
               CBF(Index).Enabled = True
               MPD.Enabled = True
            End If
       Case 2
            If CKF(Index).Value = 1 Then
            Tmpk = Right(MF.CBF(2).Text, Len(MF.CBF(2).Text) - 1)
            Tmpk = (Tmpk - 1) * 4
               CBF(Index).Enabled = False
               MiNiLife.Enabled = False
            Else
               CBF(Index).Enabled = True
               MiNiLife.Enabled = True
            End If
       Case 3
            If CKF(Index).Value = 1 Then
               CBF(Index).Enabled = False
               CH.Enabled = True
            Else
               CBF(Index).Enabled = True
               CH.Enabled = False
            End If
       Case 4
          If CKF(4).Value = 1 Then
             FTT.Enabled = False
             TF1.Interval = FTT.Text
             TF1.Enabled = True
             CBF(4).Enabled = False
          Else
             CBF(4).Enabled = True
             FTT.Enabled = True
             TF1.Enabled = False
             StartFt = False
             TAD.Enabled = False
             txtGJ.Text = "Home开挂机": LX = 0: LY = 0
             
             If CBMode.Text = "1024*768" Then
                  SetCursorPos 512, 500
             Else
                  SetCursorPos 400, 385
             End If
         End If
       Case 5
            If CKF(5).Value = 1 Then
               JJJ = 0
               CBT.Enabled = False
               CBDS.Enabled = False
            Else
               CBT.Enabled = True
               CBDS.Enabled = True
            End If
  End Select
PS(0).SetFocus
AppActivate "YB_OnLineClient"
End Sub


'Private Sub CKFK_Click()
'If CKFK.Value = 1 Then
'   YNCKFK = True
'   YNCKFKI = 0
'Else
'   YNCKFK = False
'   YNCKFKI = 0
'   LBYNCKFKI.Caption = "0秒"
'End If
'End Sub

Private Sub CKLLShutDown_Click()
On Error Resume Next
If CKLLShutDown.Value = 1 Then
    TLL.Enabled = True
Else
    TLL.Enabled = False
    LLI = 1
End If
PS(0).SetFocus
End Sub



Private Sub CKSound_Click()
On Error Resume Next
PS(0).SetFocus
End Sub

Private Sub Cmd_Click(Index As Integer)
Dim i As Integer
For i = 0 To 3
  PS(i).Visible = False
Next i
PS(Index).Left = 0
PS(Index).Top = 0
PS(Index).Visible = True
PS(Index).SetFocus
End Sub



Private Sub cmdEnd_Click()
SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3
   Dim tmp As String: tmp = MsgBox("确认要退出吗？", vbYesNo, "提示："): If tmp = vbYes Then AllOver
MF.SetFocus
End Sub



Private Sub CmdNet_Click()
Screen.MousePointer = 11
  DownloadFile "http://www.szdnwx.com/soft/ncjz.rar", GetApp & "ncjz.ini"
  LoadINI
Screen.MousePointer = 0
End Sub





Private Sub CmdSaveJZ_Click()
Dim i As Integer
For i = 1 To 11
   Saveini "setting", "Memory" & i, MA(i).Text, MemoryIniFile
Next i
PS(2).SetFocus
End Sub



Private Sub CmdUpdate_Click()
If SW.Text = "" Then Exit Sub
If LstWD.ListIndex >= 0 Then
     Saveini "setting", "LST" & LstWD.ListIndex + 1, Left(LstWD.Text, 1) & ":" & SW.Text, IniFile
     ReadLstInI
CmdUpdate.Enabled = False
SW.Text = ""
End If
End Sub




Private Sub Command1_Click()

End Sub

Private Sub Combo1_Change()

End Sub

Private Sub Form_Unload(Cancel As Integer)
If HasRun = True Then
   AllOver
Else
   Cancel = True
   Me.Hide
End If
End Sub




Private Sub FTT_Click()
FTT.Locked = True
PS(0).SetFocus
End Sub

Private Sub FTT_DropDown()
FTT.Locked = False
Dim tmpFTT As String
tmpFTT = FTT.Text
FTT.Clear
FTT.AddItem "10"
FTT.AddItem "50"
FTT.AddItem "100"
FTT.AddItem "150"
FTT.AddItem "200"
FTT.AddItem "250"
FTT.AddItem "300"
FTT.AddItem "350"
FTT.AddItem "400"
FTT.AddItem "450"
FTT.AddItem "500"
FTT.AddItem "600"
FTT.AddItem "700"
FTT.AddItem "800"
FTT.AddItem "900"
FTT.AddItem "1000"
FTT.AddItem "2000"
FTT.AddItem "3000"

If FTT.Text = "" Then FTT.Text = tmpFTT


End Sub

Private Sub FTT_KeyDown(KeyCode As Integer, Shift As Integer)
FTT.Locked = True
End Sub

Private Sub HPD_Change()
On Error Resume Next
If IsNumeric(HPD.Text) = True Then
 If Left(HPD.Text, 1) = "-" Then HPD.Text = Right(HPD.Text, Len(HPD.Text) - 1)
 If Left(HPD.Text, 1) = "+" Then HPD.Text = Right(HPD.Text, Len(HPD.Text) - 1)
 DefaultLife = CInt(HPD.Text)
End If
End Sub
Private Sub HPD_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If IsNumeric(HPD.Text) = True Then
If KeyCode = 13 Then Saveini "setting", "加红保护", HPD.Text, IniFile: MPD.SetFocus: MPD.SelStart = 0: MPD.SelLength = Len(MPD.Text)
If KeyCode = 109 Then HPD.Text = HPD.Text - 100: Saveini "setting", "加红保护", HPD.Text, IniFile
If KeyCode = 107 Then HPD.Text = HPD.Text + 100: Saveini "setting", "加红保护", HPD.Text, IniFile
End If
End Sub


Private Sub KP_Click()
If CKF(5).Value = 1 Then
   KP.Value = 0
End If
End Sub

Private Sub Label4_Click()
On Error Resume Next
ShellExecute Me.hWnd, "Open", "www.szdnwx.com/wg.asp", 0, 0, 0
End Sub


Private Sub LstWD_Click()
On Error Resume Next
If LstWD.ListIndex >= 0 Then
TmpTxt.Text = Right(LstWD.Text, Len(LstWD.Text) - 2)
Else
TmpTxt.Text = ""
End If
SW.Text = ""
End Sub

Private Sub LstWD_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If LstWD.ListIndex >= 0 Then
  If Button = 2 Then
      If Left(LstWD.Text, 1) = "X" Then useshout.Enabled = True: notuseshout.Enabled = False: PopupMenu ChuoLi
      If Left(LstWD.Text, 1) = "√" Then useshout.Enabled = False: notuseshout.Enabled = True: PopupMenu ChuoLi
  End If
End If
End Sub

Private Sub MA_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And MA(Index).Text <> "" Then
   If Index = 1 Then
      MA(2).Text = "&H" & Hex(MA(1).Text + 4)
      MA(3).Text = "&H" & Hex(MA(1).Text + 44)
      'ECEC
   End If
   If Index = 4 Then MA(5).Text = "&H" & Hex(MA(4).Text + 8)
  
End If
End Sub

Private Sub MiNiLife_Change()
On Error Resume Next
If IsNumeric(MiNiLife.Text) = True Then
 If Left(MiNiLife.Text, 1) = "-" Then MiNiLife.Text = Right(MiNiLife.Text, Len(MiNiLife.Text) - 1)
 If Left(MiNiLife.Text, 1) = "+" Then MiNiLife.Text = Right(MiNiLife.Text, Len(MiNiLife.Text) - 1)
 DefaultMiniLife = CInt(MiNiLife.Text)
End If
End Sub


Private Sub MiNiLife_KeyDown(KeyCode As Integer, Shift As Integer)
If IsNumeric(MiNiLife.Text) = True Then
If KeyCode = 13 Then Saveini "setting", "少血回城", MiNiLife.Text, IniFile: HPD.SetFocus: HPD.SelStart = 0: HPD.SelLength = Len(HPD.Text)
If KeyCode = 109 Then MiNiLife.Text = MiNiLife.Text - 100: Saveini "setting", "少血回城", MiNiLife.Text, IniFile
If KeyCode = 107 Then MiNiLife.Text = MiNiLife.Text + 100: Saveini "setting", "少血回城", MiNiLife.Text, IniFile
End If
End Sub

Private Sub MPD_Change()