Private Sub cmdStart_Click()
將I標註為整數
如果blnCloseAfterRun = True,則
弗曼。WindowState =最小化
我。隱藏
如果…就會結束
intApp = 0
調用tmrRun_Timer
tmrRun。啟用=真
末端接頭
私有子窗體_Initialize()
InitCommonControls
末端接頭
私有子窗體_Load()
將I標註為整數
Call SetStyleFlat(lvAccounts)'使ListView控件的列標題變平。
賬戶。ReadAccounts '讀取帳戶信息。
XPContainer1主題=主題'顏色樣式
刷新帳戶的刷新列表視圖。
Tmrun。間隔=延遲* 1000+1 '初始化。
如果LoginPassword & lt& gtMD5(",32)然後
frmLogin。顯示
我。隱藏
其他
我。顯示
如果cmdStart。Enabled = True,然後cmdStart。SetFocus Else cmdAccounts。SetFocus
如果…就會結束
末端接頭
更新列表視圖列表
公共子刷新帳戶()
Dim i為整數,online為整數
如果賬戶。那麽TotalAccounts = 0
cmdStart。啟用=假
其他
cmdStart。啟用=假
因為i = 1到賬戶。賬戶總數
如果賬戶。GetCheckedByPosition(I)= True Then cmd start。Enabled = True:退出
然後
如果…就會結束
lvAccounts。列表項。清除
因為i = 1到賬戶。賬戶總數
如果不是賬戶。GetIsHideLoginByPosition(I)Then online = 1 Else online = 2
選擇案例客戶。GetRunModeByPosition(i)
案例運行模式_QQ
在線=在線+ 0
案例運行模式_TM
在線=在線+ 2
案例運行模式_QQGAME
在線= 5
結束選擇
lvAccounts。添加帳戶。GetAccountsNameByPosition(i),2,在線
lvAccounts。第(壹)項。已檢查=賬戶。GetCheckedByPosition(i)
lvAccounts。列表項(壹)。子項(1) =賬戶。GetLastLoginDateByPosition(i)
然後
末端接頭
私有子窗體_Unload(取消為整數)
賬戶。保存帳戶
結束
末端接頭
雙擊帳戶項目。
Private Sub lvAccounts_DblClick()
將I標註為整數
如果不是(lvAccounts。SelectedItem什麽都不是)那麽
i = lvAccounts。選擇編輯項目.索引
如果blnDblClkRun = True,則
開始帳戶
賬戶。運行位置I,帳戶。GetRunModeByPosition(i)
其他
編輯帳號
打電話給frmMenu。ShowProperty(i)
如果…就會結束
如果…就會結束
末端接頭
檢查賬戶項目。
private Sub lvAccounts _ Item check(ByVal Item As MSComctlLib。ListItem)
將I標註為整數
如果不是(lvAccounts。SelectedItem是Nothing)然後lvAccounts。SelectedItem.Selected = False
設置lvAccounts。SelectedItem =無
設置lvAccounts。SelectedItem = Item
賬戶。更新選中的項目。索引,項目。檢查
對於i = 1到lvAccounts。列表項。計數
如果lvAccounts。第(壹)項。Checked = True,然後cmdStart。Enabled = True:退出Sub
然後
cmdStart。啟用=假
末端接頭
private Sub lvAccounts _ MouseDown(Button為整數,Shift為整數,x為Single,y為Single)
點擊空白處。
如果lvAccounts。HitTest(x,y)則什麽都不是
設置lvaccounts。'取消選中該對象。
如果…就會結束
末端接頭
private Sub lvAccounts _ MouseUp(Button為整數,Shift為整數,x為Single,y為Single)
點擊空白處。
如果不是(lvAccounts。HitTest(x,y)什麽都不是)那麽
如果Button = 2,則
PopupMenu frmMenu.mnuPopup
如果…就會結束
如果…就會結束
末端接頭
根據延遲時間啟動賬戶
私有Sub tmrRun_Timer()
Do While (1)
intApp = intApp + 1
如果intApp & gtlvAccounts。ListItems.Count然後tmrRun。Enabled = False:退出Sub
如果lvAccounts。ListItems.Item(intApp)。選中=真
如果啟動過程失敗。
如果賬戶。RunByPosition(intApp,Accounts。GetRunModeByPosition(int app))= False Then
我。顯示
我。WindowState = vbNormal
選擇案例客戶。GetRunModeByPosition(intApp)
案例運行模式_QQ
MsgBox“請在設置中設置QQ程序的路徑!”,64,“找不到QQ程序”
案例運行模式_TM
MsgBox“請在設置中設置TM程序的路徑!”,64,“未找到TM程序”
案例運行模式_QQGAME
MsgBox“請在設置中設置QQ遊戲程序的路徑!”,64,“找不到QQ遊戲程序”
結束選擇
其他
賬戶。UpdateLastLoginDate intApp,GetTimeNow
如果intApp & gt= lvAccounts。列表項。然後數數
tmrRun。啟用=假
如果blnCloseAfterRun = True和我。WindowState =最小化然後
賬戶。保存帳戶
結束
如果…就會結束
出口接頭
如果…就會結束
出口接頭
如果…就會結束
如果…就會結束
如果intApp & gt= lvAccounts。列表項。然後數數
tmrRun。啟用=假
如果blnCloseAfterRun = True和我。WindowState =最小化然後
賬戶。保存帳戶
結束
如果…就會結束
出口接頭
如果…就會結束
環
末端接頭