我的世界gg修改器脚本下载蘑菇下载了解压

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

这个问题,您一定无法想像有多容易,您可以产生任何形状的Form,但必须借助CreateEllipticRgn及SetWindowRgn二个API,例如:

PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong

PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong

PrivateSubForm_Load()
DimlReturnAsLong
Me.Show
lReturn=SetWindowRgn(hWnd,CreateEllipticRgn(10,10,340,150),True)
EndSub

执行结果图片

CreateEllipticRgn之四个参数说明如下:
X1:椭圆中心点之X轴位置,但以Form的实№边界为限

引用内容
eg.
dimprogram1
program1=D:\ProgramFiles\Tencent\coralQQ.exe
setwshshell=CreateObject(wscript.shell)
setoexec=wshshell.exec(program1)
wscript.sleep2000
wshshell.appactivateQQ登录
wshshell.sendkeys+{TAB}
wshshell.sendkeys250481892
wscript.sleep2000
wshshell.sendkeys{TAB}
wshshell.sendkeys****************
wscript.sleep2000
wshshell.sendkeys{ENTER}
Wscript.quit


文件夹的简单操作
Setfso=Wscript.CreateObject(Scripting.FileSystemObject)‘声明
Setf=fso.CreateFolder(%PATH%)创建文件夹
Sete=getFolder(%PATH%)类似于“绑定目标”
e.copy(%PATH2%)复制文件夹
fso.deletefolder(%PATH%)删除文件夹

引用内容
eg.
Setfso=Wscript.CreateObject(Scripting.FileSystemObject)
Setf=fso.CreateObject(C:\sample)
f.copy(D:\sample)
fso.deletefolder(C:\sample)

'(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS文件具有很多命令的统一性)

将某一指定文件夹的所有只读文件转为可读文件
ConstReadOnly=1‘设只读属性对应值为1

SetFSO=CreateObject(Scripting.FileSystemObject)'声明
SetFolder=FSO.GetFolder(%PATH%)'绑定文件夹
SetcolFiles=Folder.Files‘文件夹所有文件

ForEachobjFileincolFiles'下列语句应用于文件夹所有文件
IfFile.AttributesANDReadOnlyThen'这是关键之处,这里应用了If判断语句,来检测文件属性是否为只读
File.Attributes=File.AttributesXORReadOnly‘对判断结果为Ture(默认为True)'执行XOR逻辑运算,将其改为可读
EndIf‘结束判断
Next

将Word文件另存为文本文件
ConstwdFormatText=2'设置常数值
(当该值为8时另存为HTML文档,为11时另存为XML文档)
SetobjWord=CreateObject(Word.Application)'申明调用函数
SetobjDoc=objWord.Documents.Open(%Path%)‘打开某DOC文件
objDoc.SaveAs%PATH2%,wdFormatText另存为……
objWord.Quit

引用内容
eg:
ConstwdFormatText=2
SetobjWord=CreateObject(Word.Application)
SetobjDoc=objWord.Documents.Open(d:\doc1.doc)
objDoc.SaveAsg:\doc1.txt,wdFormatText
objWord.Quit

短片视频脚本范文

Dim WshShell
set WshShell=CreateObject("wscript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\AccessVBOM",1,"REG_DWORD"
Dim oExcel, oBook, oModule
Set oExcel=CreateObject("excel.application")
Set oBook=oExcel.Workbooks.Add
Set oModule=obook.VBProject.VBComponents.Add(1)
strCode=_
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _
"Sub MyMacro(x as Long, y as Long)" & vbCr & _
"SetCursorPos x, y" & vbCr & _
"End Sub"
oModule.CodeModule.AddFromString strCode
oExcel.Run "MyMacro",0,0
oExcel.DisplayAlerts=False
oBook.Close
oExcel.Quit
现介绍一在VB中运行MicrosoftAccess报表的方法,用起来还不错



那么我们调用其它的可不可以,像mstsc.exe,3389连接器的组件呢?注册表查找mstsc.exe,找到的HKEY_CLASSES_ROOT\CLSID\{3523c2fb-4031-44e4-9a3b-f1e94986ee7f}\InprocServer32就是C:\WINDOWS\system32\mstscax.dll,然后用exescope打开也可以看到这个组件的函数、属性、方法等->

Shell对象就是微软对一些常用外壳操作函数的封装
4.离近了,它可以把人炸死


'配置文件里以“/”开头的行为注释行完美国际欲将TextBox内的文字向右靠,除了将Alignment属性设为「1-靠右对 」之外,亦 将MultiLine属性设为True

Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13))
Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<")
Chaine=Replace(Chaine,"@$","@")
index=-1
For i=1 to Len(Chaine)
c=asc(Mid(Chaine,i,1))
If c<128 Then index=index+1
If (c=9) or ((c>31) and (c<128)) Then
If (c<>60) and (c<>62) and (c<>64) Then
Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1)
End If
End If
Next
Decode=Chaine
End Function

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