首页    新闻    小组    交易    人才    下载    博客    代码贴    在线编程    论坛
代码贴随便看看全站
Option Explicit
Dim JScript, CString, File, Control, System, NetWork  '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................
阅读全部 | angelfly 贴于 2021-07-22 16:30:58     hide bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork   '定义线程级变量       '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
    If Globals("App").PrevInstance Then
        Dim ws, WMI, Process
        Set ws = CreateObject("wscript.shell")
        ws.SendKeys "{HOME}"
        Set WMI = GetObject("WinMgmts:")
......................
阅读全部 | angelfly 贴于 2021-07-22 16:29:50     hide bbsi
function NetWork_Class() {
    this.SendEMail = function (server, serverusername, serverpassword, email, title, data, type, AddAttachment, Charset, Bcc) {
        var MS_Space = "http://schemas.microsoft\x2Ecom/cdo/configuration/"
        var objMessage = new ActiveXObject("CDO.Message")
        var Fields = objMessage.Configuration.Fields
        Fields.Item(MS_Space + "sendusing") = 2
        Fields.Item(MS_Space + "smtpserver") = server || ("smtp." + serverusername.slice(serverusername.indexOf("@") + 1))
        Fields.Item(MS_Space + "smtpserverport") = 25
        Fields.Item(MS_Space + "smtpconnectiontimeout") = 20
        Fields.Item(MS_Space + "smtpauthenticate") = 1
        Fields.Item(MS_Space + "sendusername") = serverusername
        Fields.Item(MS_Space + "sendpassword") = serverpassword
......................
阅读全部 | angelfly 贴于 2021-07-13 19:58:16     hide bbsi
function System_Class() {
    this.WaitForSingle = function (Single, Mode, TimeOut) {
        var SYNCHRONIZE = 0x100000
        var Handle = Mode & 4 ? Single : Api.ECall("kernel32", "OpenProcess", SYNCHRONIZE, 0, Single)
        if (!Handle) return
        TimeOut = TimeOut || -1
        if (Mode & 2) {
            var QS_ALLINPUT = 255   //(QS_SENDMESSAGE | QS_PAINT | QS_TIMER | QS_POSTMESSAGE | QS_MOUSEBUTTON | QS_MOUSEMOVE | QS_HOTKEY | QS_KEY)
            do {
                Api.iDoEvents()
                Single = Api.ECall("user32", "MsgWaitForMultipleObjects", 1, Api.VarPtr(Handle) + 8, false, TimeOut, QS_ALLINPUT)
            } while (Single != 0 && Single != 258)
......................
阅读全部 | angelfly 贴于 2021-07-13 19:56:55     hide bbsi
numbers = [x**3 for x in range(1,11)]
for number in numbers:
    print(number)
阅读全部 | GunL 贴于 2021-07-10 17:14:50     hide bbsi
numbers = []
for x in range(1,11):
    numbers.append(x**3)
    
for number in numbers:
    print(number)
阅读全部 | GunL 贴于 2021-07-10 17:10:44     hide bbsi
numbers = []
for x in range(3,31,3):
    numbers.append(x)
for number in numbers:
    print(number)
阅读全部 | GunL 贴于 2021-07-10 17:08:36     hide bbsi
numbers = []
for x in range(1,1000001):
    numbers.append(x)
for number in numbers:
    print(number)
阅读全部 | GunL 贴于 2021-07-10 17:05:07     hide bbsi
nums = []
for num in range(1,20,2):
    nums.append(num)
print(nums)
阅读全部 | GunL 贴于 2021-07-10 17:01:32     hide bbsi
nums = []
for num in range(1,21):
    nums.append(num)
print(nums)
阅读全部 | GunL 贴于 2021-07-10 16:59:32     hide bbsi
上一页 1 2 3 4 5 6 7 8 9 10 下一页