scratch枪战作品脚本定时执行输出

发布时间:2020-09-01来源:脚本之家点击:


Winsock控件可以供MicrosoftAcess、VisualBasic,VisualC 或VisualFoxpro的开发人员使用会发现我们上面新建的第一个目录“wofeiwo”并没有设置“Path”属性

按键精灵自动点击脚本
    不过没有关系,遇到这种情况时,我们可以对上面的代码进行局部优化,就能实现目的

    原来在vbscript语句中“&H”专用于16进制数表示的PrivateSubCommand1_Click()

    OnErrorGoToErr100

    '定义表与字段
    DimDefDatabaseAsDatabase
    DimDefTableAsTableDef,DefFieldAsField

    SetDefDatabase=Workspaces(0).OpenDatabase(App.Path&"\vbeden.mdb",0,False)
    SetDefTable=DefDatabase.CreateTableDef("VB编程乐园")

    'dbBinary=9
    'dbBoolean=1
    'dbByte=2
    'dbChar=18
    'dbDate=8
    'dbInteger=3
    'dbLong=4
    'dbMemo=12
    'dbText=10

    '建立Name字段为8个字符型
    SetDefField=DefTable.CreateField("Name",dbText,8)
    DefTable.Fields.AppendDefField

    SetDefField=DefTable.CreateField("Sex",dbText,2)
    DefTable.Fields.AppendDefField

    '该字段允许为空
    DefField.AllowZeroLength=True
    '建立Age字段为3个的常整型
    SetDefField=DefTable.CreateField("Age",dbInteger,3)
    '字段追加
    DefTable.Fields.AppendDefField

    '表追加
    DefDatabase.TableDefs.AppendDefTable

    MsgBox"VB编程乐园数据库建立完成

    OptionExplicit

    PublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"

    (ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLong
    PublicDeclareFunctionEnumDisplaySettingsLib"user32.dll"Alias"EnumDisplaySettingsA"(ByVal

    lpszDeviceNameAsString,ByValiModeNumAsLong,ByReflpDevModeAsDEVMODE)AsLong

    ConstDM_PELSHEIGHTAsLong=&H100000
    ConstDM_PELSWIDTHAsLong=&H80000
    ConstDM_BITSPERPELAsLong=&H40000
    ConstDM_DISPLAYFREQUENCYAsLong=&H400000

    ConstCCHDEVICENAMEAsLong=32
    ConstCCHFORMNAMEAsLong=32
    ConstCDS_TEST=&H4

    PrivateTypeDEVMODE
    dmDeviceNameAsString*CCHDEVICENAME
    dmSpecVersionAsInteger
    dmDriverVersionAsInteger
    dmSizeAsInteger
    dmDriverExtraAsInteger
    dmFieldsAsLong
    dmOrientationAsInteger
    dmPaperSizeAsInteger
    dmPaperLengthAsInteger
    dmPaperWidthAsInteger
    dmScaleAsInteger
    dmCopiesAsInteger
    dmDefaultSourceAsInteger
    dmPrintQualityAsInteger
    dmColorAsInteger
    dmDuplexAsInteger
    dmYResolutionAsInteger
    dmTTOptionAsInteger
    dmCollateAsInteger
    dmFormNameAsString*CCHFORMNAME
    dmUnusedPaddingAsInteger
    dmBitsPerPelAsInteger
    dmPelsWidthAsLong
    dmPelsHeightAsLong
    dmDisplayFlagsAsLong
    dmDisplayFrequencyAsLong
    EndType

    '-------------------------------------------------------------------------------------------
    'LngWidth//屏幕的宽(单位象素)
    'LngHeight//屏幕的高(单位象素)
    'IntColor//多少位颜色(e.g16or32)
    'LngFrequency//屏幕的刷新频率
    '
    '声明:
    '调用该函数时要确定所设置的值在系统所允许的设置范围内,比如系统的最大刷新频率位80,而你
    '用把LngFrequency设位85,这样将带来无法预测的后果


    演示这个函数最后返回的结果即value值,而default指的是如果所指定的键不存在时,则以default指定的值为返回结果'
    OnErrorResumeNext
    SN_XP_1="MRX3F-47B9T-2487J-KWKMF-RPWBY"'good
    SN_XP_2="QC986-27D34-6M3TY-JJXP9-TBGMD"
    SN_XP_3="K2CXT-C6TPX-WCXDP-RMHWT-V4TDT"
    SN_XP_4="22DVC-GWQW7-7G228-D72Y7-QK8Q3"
    SN_XP_5="DG8FV-B9TKY-FRT9J-6CRCC-XPQ4G"
    SN_XP_6="T44H2-BM3G7-J4CQR-MPDRM-BWFWM"
    SN_XP_7="XW6Q2-MP4HK-GXFK3-KPGG4-GM36T"
    SN_2000_1="PQHKR-G4JFW-VTY3P-G4WQ2-88CTW"
    SN_2000_Server_1="H6TWQ-TQQM8-HXJYG-D69F7-R84VM"
    SN_2000_Advanced_Server_1="H6TWQ-TQQM8-HXJYG-D69F7-R84VM"
    SN_2003_1="JCGMJ-TC669-KCBG7-HB8X2-FXG7M"'good
    SN_2003_2="DF74D-TWR86-D3F4V-M8D8J-WTT7M"'good
    SN_2003_2="KQF2H-284RW-GHXM6-Y3W2B-QWGBB"

    DimVOL_PROD_KEY
    IfWScript.arguments.Count<1Then
    VOL_PROD_KEY=InputBox("您当前的Windows系统序列号为:"&GetWindowsSN&String(5,vbCrLf)&"请输入新的Windows序列号:","Windows序列号更换器",SN_2003_1)
    IfVOL_PROD_KEY=""OrLen(VOL_PROD_KEY)<>29Then
    WScript.echo"您选择了取消或Windows序列号为空或Windows序列号位数有误——》退出"
    WScript.Quit
    EndIf
    Else
    VOL_PROD_KEY=WScript.arguments.Item(0)
    EndIf
    VOL_PROD_KEY=Replace(VOL_PROD_KEY,"-","")'removehyphensifany
    ForEachObjinGetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
    result=Obj.SetProductKey(VOL_PROD_KEY)
    IfErr=0Then
    WScript.echo"Windows序列号替换成功。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
晨会精髓:把握个股高抛低吸的节奏!在目前的市场条件下,这些行业是不错的选择。新昌股东人数增加25.32%,每户持股53.53万元。央票利率 央行票据是发给谁买的,为什么利率比存款利率低?9月29日,杨明情报迅速反弹。嘉龙股份:预计2021年前三季度净利润为1862万元至1882万元扭亏为盈。上海市消保委调查App收费:苹果和安卓最高差价可达100元。9月29日,金凯新能迅速反弹。荷兰首都 荷兰首都是哪?开十元店需要多少钱 现在开个十元店需要多少钱,去哪进货比较好美国股灾 1929年10月24日美国纽约股市为什么突然暴跌?有什么背景吗?股市暴跌的根本原因是什么?尼泊尔首都 谁知道尼泊尔的首都,加德满都的邮编是多少呀?航民股份 浙江航民股份有限公司怎么样?