modupdate.bas

使用vb寫出完美網頁遊戲外掛的原始碼分享

Attribute VB_Name = "ModUpdate"
Option Explicit
Public Sub Update_People()
Dim a As Integer

'        a = MDIfrmMain.lvPeople.ListItems.Add.Index
'        MDIfrmMain.lvPeople.ListItems(a).Text = People(PPLID).Name
'        MDIfrmMain.lvPeople.ListItems(a).SubItems(1) = CStr(People(PPLID).pos.y) & ":" & CStr(People(PPLID).pos.x)
'        MDIfrmMain.lvPeople.ListItems(a).SubItems(2) = EvalNorm(People(PPLID).pos, CurPos) & "b"
'        MDIfrmMain.lvPeople.ListItems(a).SubItems(3) = People(PPLID).Class
'        MDIfrmMain.lvPeople.ListItems(a).SubItems(4) = People(PPLID).Sex
'        MDIfrmMain.lvPeople.ListItems(a).SubItems(5) = People(PPLID).Guild
        
        
End Sub

Public Sub Update_Stats()
    Dim Percent As Double
    With LoginChar(Char)
        Percent = Format(.HP / .MaxHP, "##.####")
        frmMain.pbCHP.Value = Percent * 100
        frmMain.pbCHP.Text = .HP & " / " & .MaxHP
        frmMain.pbCHP.ToolTipText = Percent * 100 & "%"
        frmInfo.labHP = .HP & " / " & .MaxHP & " (" & Percent * 100 & "%)"
        Percent = Format(.MP / .MaxMP, "##.####")
        frmMain.pbCMP.Value = Percent * 100
        frmMain.pbCMP.Text = .MP & " / " & .MaxMP
        frmMain.pbCHP.ToolTipText = Percent * 100 & "%"
        frmInfo.labMP = .MP & " / " & .MaxMP & " (" & Percent * 100 & "%)"
        frmInfo.labAgi = .Agi
        frmInfo.labInt = .Int
        frmInfo.labCon = .Con
        frmInfo.labSta = .Sta
        frmInfo.labKill = Format(.Kill, "##,##")
        frmMain.txtLv = "Lv." & .Level
        frmInfo.LabMoney = .Money
    End With
End Sub