培训：PRG程序之QQ登录器

来源：互联网发布：ttc转ttf mac 编辑：程序博客网时间：2024/04/29 05:33

#define Left_Label 30
#define Top_Label 30
#define Left_Text Left_Label + 50
#define Top_Text   Top_Label - 5
oQQLoginForm = newobject("qqLoginFormClass")
oQQLoginForm.newobject("IdLabel" ,"IdLabelClass")
oQQLoginForm.newobject("pwdLabel","pwdLabelClass")
oQQLoginForm.newobject("IdTextBox" ,"IdTextBoxClass")
oQQLoginForm.newobject("pwdTextBox","pwdTextBoxClass")
oQQLoginForm.newobject("okCmndBtn","okCmndBtnClass")
oQQloginForm.show(1)
define class qqLoginFormClass as Form
caption    = "QQ登录器"
width    = 200
height     = 140
autocenter = .t.
minbutton = .f.
maxbutton = .f.
enddefine
define class IdLabelClass as label
caption    = "帐号："
visible    = .t.
top     = Top_Label
left    = Left_Label
enddefine
define class pwdLabelClass as label
caption    = "密码："
visible    = .t.
top     = Top_Label + 30
left    = Left_Label
enddefine

define class IdTextBoxClass as textbox
visible    = .t.
top     = Top_Text
left    = Left_Text
enddefine
define class pwdTextBoxClass as textbox
visible    = .t.
top     = Top_Text + 30
left    = Left_Text
passwordchar   = "*"
enddefine
define class okCmndBtnClass as commandbutton
caption    = "登录"
width    = 60
height    = 25
top     = oQQLoginForm.height - 40
visible    = .t.
left    = (oQQLoginForm.width - this.width)/2
procedure click
  local lcQQPath
  lcQQPath = "C:\Program Files\Tencent\QQ\Bin\QQ.exe"
  o_sLoginQQ = createobject("wscript.shell")
  o_sLoginQQ.exec(lcQQPath)
  inkey(1)
  o_sLoginqq.SendKeys("+{TAB}")
  inkey(0.5)
  o_sLoginqq.SendKeys(alltrim(thisform.IdTextBox.value))
  inkey(0.5)
  o_sLoginqq.SendKeys("{TAB}")
  inkey(0.5)
  o_sLoginqq.SendKeys(alltrim(thisform.pwdTextBox.value))
  inkey(0.5)
  o_sLoginqq.SendKeys("{Enter}")
endproc
enddefine