¿Cómo utilizar VB para ingresar el número de cuenta y la contraseña de QQ en el cuadro de inicio de sesión de QQ?
Private Sub cmdStart_Click()
Marcar I como un número entero
Si blnCloseAfterRun = True, entonces
Furman. WindowState=minimizar
i. Ocultar
Termina si...
intApp = 0
Llama a tmrRun_Timer
tmrRun. Enable=True
Conector final
Subform_Initialize()
InitCommonControls
Conector final
Subform_Load privado( )
Marcar I como un número entero
Llamar a SetStyleFlat(lvAccounts)' aplana los encabezados de columna del control ListView.
Cuenta. ReadAccounts 'Leer información de la cuenta.
XPContainer1 theme=theme'ColorStyle
Actualiza la vista de lista de actualización de la cuenta.
Tmrun. intervalo = retraso * 1000 1 'Inicialización.
Si LoginPassword lt gtMD5(", 32) entonces
frmLogin.Show
i.Hide
Otro
i.Show
Si cmdStart.Enabled = True, entonces cmdStart.SetFocus Else cmdAccounts
finaliza si... p>
Actualizar lista de vista de lista
SubrefreshAccounts públicas()
Dim i es un número entero, online es un número entero
Si Cuentas, entonces TotalAccounts = 0
cmdStart.enabled=False.
Otro
cmdStart.enabled=False
porque i = 1 para account_total
Si account.GetCheckedByPosition(I)= True Luego cmd start.Enabled = True: Salir
Entonces
Si... terminará
lvCuentas Borrar
GetIsHideLoginByPosition(I) Luego en línea = 2
Seleccione el caso del cliente. running mode_QQ
Online=Online0
Caso running mode_TM
Online=Online 2
Caso Run Mode_QQGAME
En línea=5
Finalizar selección
lvAccounts. GetAccountsNameByPosition(i), 2, en línea
lvAccounts=Cuentas.
GetLastLoginDateByPosition(i)
Luego
Conector final
Subformulario privado_Unload(Descargar como entero)
Cuenta. Guardar cuenta
Fin
Finalizar ajuste
Haga doble clic en el elemento Cuenta.
Private Sub lvAccounts_DblClick()
Marcar I como un número entero
Si no (lvAccounts.SelectedItem no es nada), entonces
i = lvCuentas. Seleccione Editar Project.Index
Si blnDblClkRun = True, entonces
Iniciar cuenta
Cuenta. Ejecute la ubicación I, cuenta. GetRunModeByPosition(i)
Otro
Editar cuenta
Llame a frmMenu. ShowProperty(i)
Termina si
Termina si
Conector final
Verificar elementos de la cuenta.
sub lvAccounts privadas _ verificación de elemento (elemento ByVal como MSComctlLib.ListItem)
Marcar I como un número entero
Si no (lvAccounts.SelectedItem no es nada), entonces lvCuentas. SelectedItem.Selected = False
Establecer lvAccounts. SelectedItem=Ninguno
Establecer lvAccounts. Artículo seleccionado = Artículo
Cuenta. Actualizar elementos seleccionados. Índice, proyecto. Compruebe
si i = 1 para lvAccounts. Listar elementos. contar
si lvAccounts. Artículo (1). Marcado = Verdadero, luego cmdStart. Habilitado = Verdadero: Salir de Sub
luego
cmdStart. Enable = False
Conector final
private Sub lvAccounts _ MouseDown(El botón es un número entero, Shift es un número entero, x es único, y es único)
Haga clic en blanco en.
Si lvAccounts. HitTest(x, y) no es nada
Establecer lvaccounts. 'Desmarca el objeto.
Terminará si...
Conector final
sub lvAccounts privadas _ MouseUp (el botón es un número entero, Shift es un número entero, x es único, y es Sencillo)
Haga clic en un espacio vacío.
Si no (lvAccounts.HitTest(x, y) no es nada), entonces
Si Button = 2, entonces
PopupMenu frmMenu.mnuPopup
Finalizar si…
Finalizar si…
Finalizar conector
Iniciar cuenta según el tiempo de retraso
Private Sub tmrRun_Timer()
Hacer mientras (1)
intApp = intApp 1
Si intApp gtlvAccounts.
ListItems.Count y luego tmrRun. Habilitado = Falso: Salir de Sub
si lvAccounts. ListItems.Item(intApp). check = true
Si el proceso de inicio falla.
Si cuenta. RunByPosition(intApp, Accounts. GetRunModeByPosition(int app)) = False Entonces
i. Muéstrame
. WindowState = vbNormal
Seleccione el cliente del caso. GetRunModeByPosition(intApp)
Caso en ejecución mode_QQ
MsgBox "¡Establezca la ruta del programa QQ en la configuración!", 64, "No se puede encontrar el programa QQ"
Caso en ejecución mode_TM
MsgBox "¡Establezca la ruta del programa TM en la configuración!", 64, "Programa TM no encontrado"
Caso en ejecución mode_QQGAME
p>MsgBox "¡Establezca la ruta del programa del juego QQ en la configuración!", 64, "No se puede encontrar el programa del juego QQ"
Finalizar selección
Otros
p>Cuenta. UpdateLastLoginDate intApp,GetTimeNow
si intApp gt= lvAccounts. Listar elementos. Luego cuenta
tmrRun. enable = False
Si blnCloseAfterRun = True y i. WindowState = Minimizar la
cuenta. Guardar cuenta
Finalizar
Terminará si...
Salir del conector
Terminará si...
Conector de salida
Terminará si...
Terminará si...
Si intApp gt= lvAccounts. Listar elementos. Luego cuenta
tmrRun. enable = False
Si blnCloseAfterRun = True y i. WindowState = Minimizar la
cuenta. Guardar cuenta
Finalizar
Terminará si...
Salir del conector
Terminará si...
Anillo
Conector final