?? mf.frm

?? 熱血助手VB源碼....有需要的自己下....
?? FRM
?? 第 1 頁 / 共 5 頁
字號:
上一頁 1 2 3 45
On Error Resume Next
If IsNumeric(MPD.Text) = True Then
 If Left(MPD.Text, 1) = "-" Then MPD.Text = Right(MPD.Text, Len(MPD.Text) - 1)
 If Left(MPD.Text, 1) = "+" Then MPD.Text = Right(MPD.Text, Len(MPD.Text) - 1)
 DefaultNL = CInt(MPD.Text)
End If
End Sub

Private Sub MPD_KeyDown(KeyCode As Integer, Shift As Integer)
If IsNumeric(MPD.Text) = True Then
If KeyCode = 13 Then Saveini "setting", "加藍保護", MPD.Text, IniFile: MiNiLife.SetFocus: MiNiLife.SelStart = 0: MiNiLife.SelLength = Len(MiNiLife.Text)
If KeyCode = 109 Then MPD.Text = MPD.Text - 100: Saveini "setting", "加藍保護", MPD.Text, IniFile
If KeyCode = 107 Then MPD.Text = MPD.Text + 100: Saveini "setting", "加藍保護", MPD.Text, IniFile
End If
End Sub

Sub Form_Load()
On Error Resume Next
If App.PrevInstance Then
   HasRun = True
   Unload Me
Else
   HasRun = False
End If

If Dir(GetApp & "myjh.ini") = "" Then CreateIni
If Dir(GetApp & "ncjz.ini") = "" Then CreateMemoryIni
   IniFile = GetApp & "myjh.ini"
   MemoryIniFile = GetApp & "ncjz.ini"

Me.Width = 5115: Me.Height = 3810
Me.Top = Screen.Height - Me.Height - 900
Me.Left = Screen.Width - Me.Width - 900
SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3

LoadINI

StartFt = False
FangX = 0

SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3
'**********************************DLL
    SetKeyboardHook Me.hWnd, WM_USER
    If Err.Number <> 0 Then
       DownloadFile "http://www.szdnwx.com/soft/dll.rar", GetApp & "rxzs.dll"
       MsgBox "rxzs.dll下載成功，請重新運行助手。", , "提示："
       End
    End If
    prevWndProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)
    SetWindowLong Me.hWnd, GWL_WNDPROC, AddressOf WndProc
'**********************************DLL
If MA(1).Text = "" Then CmdNet_Click
End Sub
Private Sub AllOver()  '結束程序
          Timer1.Enabled = False: TF1.Enabled = False
          TAD.Enabled = False
'**********************************DLL
If HasRun = False Then
    ReleaseKeyboardHook
    SetWindowLong Me.hWnd, GWL_WNDPROC, prevWndProc
End If
'**********************************DLL
          End
End Sub
Private Sub LoadINI()
Dim tmp As String
   tmp = GetINI("setting", "加紅保護", IniFile): HPD.Text = tmp: tmp = ""
   tmp = GetINI("setting", "加藍保護", IniFile): MPD.Text = tmp: tmp = ""
   tmp = GetINI("setting", "少血回城", IniFile): MiNiLife.Text = tmp: tmp = ""
   tmp = GetINI("setting", "KeyPressF0", IniFile): CBF(0).Text = tmp: tmp = ""
   tmp = GetINI("setting", "KeyPressF1", IniFile): CBF(1).Text = tmp: tmp = ""
   tmp = GetINI("setting", "KeyPressF2", IniFile): CBF(2).Text = tmp: tmp = ""
   tmp = GetINI("setting", "KeyPressF3", IniFile): CBF(3).Text = tmp: tmp = ""
   tmp = GetINI("setting", "KeyPressF4", IniFile): CBF(4).Text = tmp: tmp = ""  '讀取自動技能設置
   tmp = GetINI("setting", "KeyPressF5", IniFile): CBT.Text = tmp: tmp = ""  '讀取自動技能設置
   tmp = GetINI("setting", "ShoutT", IniFile): ShoutT.Text = tmp: tmp = ""   '喊話的時間間隔
   Dim i As Integer
   For i = 1 To 11
       tmp = GetINI("setting", "Memory" & i, MemoryIniFile): MA(i).Text = tmp: tmp = "" '讀取內存基址
   Next i
   ReadLstInI
   
DefaultLife = CInt(HPD.Text)
DefaultNL = CInt(MPD.Text)
DefaultMiniLife = CInt(MiNiLife.Text)
End Sub

Private Sub MTT_Click()
MTT.Locked = True
PS(0).SetFocus
End Sub

Private Sub MTT_DropDown()
MTT.Locked = False
Dim tmpMTT As String
tmpMTT = MTT.Text
MTT.Clear
MTT.AddItem "100"
MTT.AddItem "200"
MTT.AddItem "300"
MTT.AddItem "400"
MTT.AddItem "500"
MTT.AddItem "600"
MTT.AddItem "700"
MTT.AddItem "800"
MTT.AddItem "900"
MTT.AddItem "1000"
MTT.AddItem "1500"
MTT.AddItem "2000"
MTT.AddItem "2500"

If MTT.Text = "" Then MTT.Text = tmpMTT
End Sub

Private Sub MTT_KeyDown(KeyCode As Integer, Shift As Integer)
MTT.Locked = True
End Sub


Private Sub OffLineC_Click()
If OffLineC.Value = 1 Then OFFLINECI = 1
End Sub

Private Sub QE_Click()

End Sub

Private Sub ShoutT_Click()
On Error Resume Next
ShoutT.Locked = True
If IsNumeric(ShoutT.Text) = True Then
     Saveini "setting", "ShoutT", ShoutT.Text, IniFile
End If
End Sub

Private Sub ShoutT_DropDown()
ShoutT.Locked = False
Dim tmp
If ShoutT.Text <> "" Then tmp = ShoutT.Text
ShoutT.Clear
Dim i As Integer
For i = 1 To 60
  ShoutT.AddItem i
Next i
ShoutT.AddItem "120"
ShoutT.AddItem "180"
ShoutT.AddItem "240"
If ShoutT.Text = "" Then ShoutT.Text = tmp
End Sub

Private Sub ShoutT_KeyDown(KeyCode As Integer, Shift As Integer)
ShoutT.Locked = True
End Sub

Private Sub SW_KeyDown(KeyCode As Integer, Shift As Integer)  '更新喊話內容時按回車的處理代碼
   If KeyCode = 13 And SW.Text <> "" Then CmdUpdate.SetFocus
End Sub

Private Sub t36_Change()
My36
End Sub


Private Sub My36()
       If MF.txtGJ.Text = "F12開助手" Then Exit Sub
       StartFt = Not StartFt
       MF.TAD.Enabled = StartFt
       If StartFt = True Then
          LX = CInt(NcnrX(Val(MA(4).Text)))
          LY = CInt(NcnrX(Val(MA(5).Text)))
          MF.txtGJ.Text = "Home關掛機"
          SendKeys "/鎖定:[" & LX & " " & LY & "]"
          SendKeys "{enter}"
          MousePointN = Getmousehandle
          KKK = 0
       Else
          LX = "0": LY = "0"
          If CBMode.Text = "1024*768" Then
          SetCursorPos 512, 500
          Else
          SetCursorPos 400, 385
          End If
          ReadPos
          MF.txtGJ.Text = "Home開掛機"
       End If
End Sub

Private Sub TCV_Timer()
If CKF(5).Value = 1 Then
    JJJ = JJJ + 1
    Dim tmp As Integer
    tmp = CInt(Left(CBDS.Text, Len(CBDS.Text) - 1))
    If JJJ >= tmp Then KeyPressFJ (CBT.Text)  '如果到了時間 就按下了
    If JJJ = tmp Then JJJ = 0
End If
End Sub


Private Sub TLL_Timer()
LLI = LLI + 1
If LLI = 600 And CKLLShutDown.Value = 1 Then
      If CBCL.Text = "直接關機" Then
          Call VBShutdown    '檢測不到江湖窗口 執行關機
      Else
          SendMessage Me.hWnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000 '開啟聲音
          CKLLShutDown.Value = 0
      End If
End If
End Sub

Private Sub TS_Timer() '自動喊話時鐘
On Error Resume Next
II = II + 1
ShoutDS.Caption = CInt(ShoutT.Text) - II + 1 & "秒"
If IsNumeric(ShoutT.Text) = True And II = CInt(ShoutT.Text) Then
  II = 0
  Dim i As Integer
  i = Len(TXTShoutS.Text)
  If ShoutCount = i + 1 Then ShoutCount = 1
  LstWD.ListIndex = Mid(TXTShoutS.Text, ShoutCount, 1)
         If LstWD.ListIndex >= 0 Then
            TmpTxt.Text = Right(LstWD.Text, Len(LstWD.Text) - 2)
         Else
            TmpTxt.Text = ""
         End If
         TmpTxt.Text = Replace(TmpTxt.Text, "+", "{+}")
         TmpTxt.Text = Replace(TmpTxt.Text, "^", "{^}")
         TmpTxt.Text = Replace(TmpTxt.Text, "%", "{%}")
         TmpTxt.Text = Replace(TmpTxt.Text, "~", "{~}")
         TmpTxt.Text = Replace(TmpTxt.Text, "(", "{(}")
         TmpTxt.Text = Replace(TmpTxt.Text, ")", "{)}")
         If ShoutSpace.Value = 1 Then
             SendKeys TmpTxt.Text
         Else
             SendKeys TmpTxt.Text & Space(CInt(Rnd * 8))
         End If
         SendKeys "{enter}"
  ShoutCount = ShoutCount + 1
End If

End Sub
Private Sub TF1_Timer()  '自動技能時鐘
If CKF(4).Value = 1 Then
 
 KeyPressFJ (CBF(4).Text)

End If
End Sub


Private Sub TTime_Timer()
'Dim PI As POINTAPI
'GetCursorPos PI
'Me.Caption = PI.X & "  " & PI.Y

On Error Resume Next
'20秒按一次ESC 如果斷線 按ESC會跳出江湖的窗口  檢測不到江湖的窗口 執行關機命令
'這一部分適用于開店用 因為每20秒按一次ESC 那么聊天窗口的內容會消失，這樣會影響聊天的內容
If OffLineC.Value = 1 Then
   OFFLINECI = OFFLINECI + 1      '時間秒數的變量  這個變量事先定義
   Dim tmpzero As Long
   tmpzero = FindWindow(vbNullString, "YB_OnLineClient")    '關斷江湖窗口
   If OFFLINECI = 20 Then
      SendKeys "{ESC}"
      OFFLINECI = 0    '按下ESC后重新開始計秒數
      If tmpzero = 0 Then
        If CBCL.Text = "直接關機" Then
          Call VBShutdown    '檢測不到江湖窗口 執行關機
        Else
          SendMessage Me.hWnd, WM_APPCOMMAND, &H200EB0, APPCOMMAND_VOLUME_MUTE * &H10000 '開啟聲音
          OffLineC.Value = 0
        End If
      End If
   End If
End If


'下面的這段內容是無歷煉增加自動關機的代碼
If CKLLShutDown.Value = 1 Then
  Dim Tmpll As Integer
  Tmpll = CInt(Ncnr(Val(MA(3).Text)))  '游戲中歷煉的基址
  If Tmpll <> CInt(LBLL.Caption) Then LLI = 1
  LBLL.Caption = Tmpll: LBLL.Refresh
  LBLLTIME.Caption = LLI & "秒": LBLLTIME.Refresh
  Else
  LBLL.Caption = ""
  LBLLTIME.Caption = "0秒"
  LBLLTIME.Refresh
End If

'下面的這段內容是　QE 200秒不群 自動移動位置的代碼
'原理是200秒內，如果不使用一個蘭，那么判斷為卡住 則移動
'If YNCKFK = True Then
'  YNCKFKI = YNCKFKI + 1
'  LBYNCKFKI.Caption = YNCKFKI & "秒"
'  LBYNCKFKI.Refresh
'  If YNCKFKI > 118 Then  '118
'  Dim i, r As Integer
'  i = Int(360 * Rnd): r = Int(16 * Rnd) + 30
'  If CBMode.Text = "1024*768" Then
'     SetCursorPos Int(r * Cos(i)) + 512, Int(r * Sin(i)) + 488
'  Else
'     SetCursorPos Int(r * Cos(i)) + 400, Int(r * Sin(i)) + 388
'  End If
'     mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'     mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
'     Sleep 300
'        If YNCKFKI = 120 Then  '120
'        YNCKFKI = 0
 '
 '       If CBMode.Text = "1024*768" Then
 '           SetCursorPos 80, 10
 '       Else
 '           SetCursorPos 100, 50
 '       End If
 '       Sleep 200
  '      mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 '       mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 '    End If
 ' End If
'End If

LBTM.Text = Time
LBTM.Refresh
End Sub

Private Sub txtGJ_Change() '改成綠色背景
If txtGJ.Text = "Home開掛機" Then
   txtGJ.ForeColor = &H80000008
Else
   txtGJ.ForeColor = &HC0&
End If
End Sub

Private Sub useshout_Click() '喊話設成開啟
If LstWD.ListIndex < 0 Then Exit Sub
On Error Resume Next
If Left(LstWD.Text, 2) <> "√:" Then
   Saveini "setting", "LST" & LstWD.ListIndex + 1, "√:" & Right(LstWD.Text, Len(LstWD.Text) - 2), IniFile
End If
ReadLstInI
End Sub
Private Sub notuseshout_Click() '喊話設成禁用
If LstWD.ListIndex < 0 Then Exit Sub
On Error Resume Next
If Left(LstWD.Text, 2) = "√:" Then
   Saveini "setting", "LST" & LstWD.ListIndex + 1, "X:" & Right(LstWD.Text, Len(LstWD.Text) - 2), IniFile
End If
ReadLstInI
End Sub
Private Sub editshout_Click() '更改喊話的內容
If LstWD.ListIndex < 0 Then Exit Sub
   SW.Text = Right(LstWD.Text, Len(LstWD.Text) - 2)
   CmdUpdate.Enabled = True
   SW.SetFocus: SW.SelStart = 0: SW.SelLength = Len(SW.Text)
End Sub
Private Function Ncnr(lpAddress As Long) As Integer '讀內存代碼1 紅和藍 數字型
 GameHwnd = FindWindow(vbNullString, "YB_OnLineClient")
 GetWindowThreadProcessId GameHwnd, GamePid
 GPPid = OpenProcess(&H1F0FFF, 0, GamePid)
 ReadProcessMemory GPPid, lpAddress, ByVal VarPtr(Ncnr), 4, 0&
 CloseHandle GPPid
End Function
Private Function NcnrX(lpAddress As Long) As Single '讀內存代碼2 人物的坐標，而不是地圖的坐標 浮點數
 GameHwnd = FindWindow(vbNullString, "YB_OnLineClient")
 GetWindowThreadProcessId GameHwnd, GamePid
 GPPid = OpenProcess(&H1F0FFF, 0, GamePid)
 ReadProcessMemory GPPid, lpAddress, ByVal VarPtr(NcnrX), 8, 0&
 CloseHandle GPPid
End Function
Private Function NcnrY(lpAddress As Long) As Long '讀內存代碼3 F1-F10使用 讀內存的偏移
 GameHwnd = FindWindow(vbNullString, "YB_OnLineClient")
 GetWindowThreadProcessId GameHwnd, GamePid
 GPPid = OpenProcess(&H1F0FFF, 0, GamePid)
 ReadProcessMemory GPPid, lpAddress, ByVal VarPtr(NcnrY), 4, 0&
 CloseHandle GPPid
End Function

Private Sub Timer1_Timer() '這里是以后游戲升級后要改的基址，一般網上都能找到。
On Error Resume Next
Dim tmpl, tmph As Integer
tmph = CInt(Ncnr(Val(MA(1).Text)))   '游戲中當前生命的基址
tmpl = CInt(Ncnr(Val(MA(2).Text)))  '游戲中當前內力的基址
If IsNumeric(tmph) = True And CKF(0).Value = 1 And tmph < DefaultLife Then KeyPressFJ (CBF(0).Text)
If IsNumeric(tmpl) = True And CKF(1).Value = 1 And tmpl < DefaultNL Then KeyPressFJ (CBF(1).Text): YNCKFKI = 0
If IsNumeric(tmph) = True And CKF(2).Value = 1 And tmph < DefaultMiniLife Then THC.Enabled = True

'下面是F1-F10的基址。判斷紅藍的個數，當=1個時回城
'======================================================3333333333333333333333=====================================
TmpSL1 = Ncnr(NcnrY(NcnrY(Val(MA(6).Text)) + Val("&H" & Hex(Tmpj)) + Val(MA(8).Text)) + Val(MA(9).Text))
TmpSL2 = Ncnr(NcnrY(NcnrY(Val(MA(6).Text)) + Val("&H" & Hex(Tmpi)) + Val(MA(8).Text)) + Val(MA(9).Text))
TmpSL3 = Ncnr(NcnrY(NcnrY(Val(MA(6).Text)) + Val("&H" & Hex(Tmpk)) + Val(MA(8).Text)) + Val(MA(9).Text))
'======================================================44444444444444444444444444444=====================================
If TmpSL1 = 2 Or TmpSL2 = 2 Then THC.Enabled = True
End Sub



Private Sub THC_Timer()
      
      Dim tmp, Tk, Th As Integer
      Tk = Right(CBF(2).Text, Len(CBF(2).Text) - 1)
      Tk = (Tk - 1) * CInt(MF.MA(7).Text)
      tmp = Ncnr(NcnrY(NcnrY(Val(MA(6).Text)) + Val("&H" & Hex(Tk)) + Val(MA(8).Text)) + Val(MA(9).Text))
      
      Th = CInt(Ncnr(Val(MA(1).Text)))
      If Th = 0 Then
          StartFt = False
          TF1.Enabled = False
          TAD.Enabled = False
          MF.THC.Enabled = False: MF.txtGJ.Text = "Home開掛機"
          Dim i As Integer
          For i = 0 To 4
              MF.CKF(i).Enabled = T
上一頁 1 2 3 45
?? 文件大小 23 K
?? 上傳用戶 csytml
?? 所屬分類通訊/手機編程
??? 相關標簽

#源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mf.frm

?? 快捷鍵說明
