培训：PRG程序之QQ登录器

 

#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