趣头条脚本下载运行sh

发布时间:2021-08-16 来源:脚本之家 点击:

在主窗体的Form_load()中的最前面加入下列代码:
DimX0Aslong
DimY0AsLong

'让窗体居中
X0=Screen.Width
Y0=Screen.Height
X0=(X0-Me.Width)/2
Y0=(Y0-Me.Height)/2
Me.MoveX0,Y0->

"
function getfilename(path)
dim file,folder,sfolder,fname,subfolder,Files
if not fso.folderexists(path) then
set fso=nothing
msgbox "目标文件夹不存在
部队微电影脚本范例

参考链接:VBScript Trivia: Bracket Identifiers and Reserved Word Incompatibilities
原文:

  • 其他控件MicrosoftCommonDialogControl,Version6.0
  • 在窗体上形成对话框控件
  • 修改控件的名称如:Dialog1
  • 设置其属性:在对话框上单击右键CommonDialog对象的属性弹出属性对话框(如下图)


    oShellLink.TargetPath=filename

    ->OptionExplicit
    PrivateSubCommand1_Click()
    DimIAsLong,JAsLong,KAsLong
    DimPrintStringAsString
    ForI=0ToData1.Recordset.RecordCount-1
    IfK=DBGrid1.VisibleRowsThen
    DBGrid1.Scroll0,DBGrid1.VisibleRows
    K=0
    EndIf
    ForJ=0ToDBGrid1.Columns.Count-1
    PrintString=PrintString&
    DBGrid1.Columns(J).CellText(DBGrid1.RowBookmark(K))&"/"
    Next
    Printer.PrintPrintString
    PrintString=""
    K=K 1
    DoEvents
    Next
    EndSub

    PrivateSubForm_Activate()
    Data1.Recordset.MoveLast
    Data1.Recordset.MoveFirst
    EndSub->
    ->

    OnErrorResumeNext
    SetArg=Wscript.arguments
    IfArg.count=0thenWscript.quit
    '-------------------
    'Enjoyit
    'CodeByNetPatch
    '-------------------
    fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")

    SetFso=CreateObject("Scripting.FileSystemObject")
    SetWshShell=Wscript.CreateObject("Wscript.Shell")
    SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

    Wscript.echo"点确定后5秒开始"
    WshShell.AppActivate"命令提示符"
    Wscript.Sleep5000
    WshShell.AppActivate"命令提示符"

    DoWhileFile.AtEndOfStream<>True
    Data=File.readline
    IfData=""thenData="."
    Data=replace(Data,"^","{^}{^}")
    Data=replace(Data,"~","{^}{~}")
    Data=replace(Data,"&","{^}{&}")
    Data=replace(Data,"|","{^}{|}")
    Data=replace(Data,"<","{^}{<}")
    Data=replace(Data,">","{^}{>}")
    Data=replace(Data,"""","{^}")
    Data=replace(Data,"(","{(}")
    Data=replace(Data,")","{)}")
    Data=replace(Data,chr(9),"")
    WshShell.SendKeys"echo"&Data&">>"&fname
    Wscript.Sleep300
    WshShell.SendKeys"{ENTER}"
    Wscript.Sleep1000
    Loop
    File.close
    SetFso=nothing
    PrivateDeclareFunctionGetSystemMenuLib"User32"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
    PrivateDeclareFunctionRemoveMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
    PrivateDeclareFunctionDrawMenuBarLib"User32"(ByValhwndAsLong)AsLong
    PrivateDeclareFunctionGetMenuItemCountLib"User32"(ByValhMenuAsLong)AsLong
    PrivateConstMF_BYPOSITION=&H400&
    PrivateConstMF_DISABLED=&H2&

    PrivateSubForm_Load()
    CallDisableX(Me)
    EndSub

    PrivateSubDisableX(FrmAsForm)
    DimhMenuAsLong,nCountAsLong
    hMenu=GetSystemMenu(Frm.hwnd,0)
    nCount=GetMenuItemCount(hMenu)
    CallRemoveMenu(hMenu,nCount-1,MF_DISABLEDOrMF_BYPOSITION)
    DrawMenuBarFrm.hwnd
    EndSub->


    我们刚才说到哪了?哦,对了,我们弹出一个消息框,并向用户提供是按钮和否按钮狐狸kangle
    你只要保证你的数据库在你程序所在的目录之下就行了默认情况下,脚本使用本地计算机当前用户的权限运行。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号