Excel 怎样在宏中实现QQ登陆

Excel 怎样在宏中实现QQ登陆

如果 你可以，就可次皿无数的Q号了。设密码是123456，理论上是：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub yy()
     Shell "D:\Program Files\Tencent\QQ\Bin\QQ.exe", vbNormalFocus
     Sleep 2000
     Application.SendKeys "123456", Wait
End Sub

利用worksheet.printout(1, 1, 1, false, , false, false, false, true)即可打印出当前工作表的第一页。 worksheet.printout 方法 打印对象。 语法 表达式.printout(from, to, copies, preview, activeprinter, printtofile, collate, prtofilename, ignoreprintareas) 表达式 一个代表 worksheet 对象的变量。 参数 名称 必选/可选 数据类型 描述 from 可选 variant 打印的开始页号。如果省略此参数，则从起始位置开始打印。 to 可选 variant 打印的终止页号。如果省略此参数，则打印至最后一页。 copies 可选 variant 打印份数。如果省略此参数，则只打印一份。 preview 可选 variant 如果为 true，microsoft excel 将在打印对象之前调用打印预览。如果为 false（或省略该参数），则立即打印对象。 activeprinter 可选 variant 设置活动打印机的名称。 printtofile 可选 variant 如果为 true，则打印到文件。如果没有指定 prtofilename，microsoft excel 将提示用户输入要使用的输出文件的文件名。 collate 可选 variant 如果为 true，则逐份打印多个副本。 prtofilename 可选 variant 如果 printtofile 设为 true，则该参数指定要打印到的文件名。 ignoreprintareas 可选 variant 如果为 true，则忽略打印区域并打印整个对象。 返回值 variant 说明 from 和 to 所描述的“页”指的是要打印的页，并非指定工作表或工作簿中的全部页。 示例 此示例打印当前活动工作表。 activesheet.printout

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息