dnfys脚本后羿

发布时间:2020-06-28 来源:脚本之家 点击:

为了解决这个问题,这里提供一个简单并且很好用的技巧:使用WindowsAPI函数MessageBox

地球末日生存gg大玩家脚本为什么要积分


打开或关闭任务管理器:

DimWSHShell,r,m,v,t,g
Dimi

OnErrorResumeNext

SetWSHShell=WScript.CreateObject("WScript.Shell")
v="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
i="REG_DWORD"
t="任务管理器开关"

r=WSHShell.RegRead(v)
g=1

If(r=1)Theng=0
Ifg=1Then
WSHShell.RegWritev,1,i
m=MsgBox("是否限制任务管理器?",3,t)
Else
WSHShell.RegDeletev
m=MsgBox("是否解除任务管理器限制?",3,t)
EndIf

也是将以上内容复制到记事本中,将文件另存为*.VBS即可

常数

State常数

常数含义
adStateClosedConnection(或其他对象)是关闭的(默认值)
adStateConnecting正在连接数据源的状态
adStateExecutingConnection或Command对象的Execute方法已被调用
adStateFetching返回行(row)到Recordset对象
adStateOpenConnection(或其他对象)是打开的(活动的)

CommandType所用到的常数

Command类型常数含义
adCmdUnknownCommand类型未定(默认值),由数据提供者去判别Command语法
adCmdFileCommand是和对象类型相应的文件名称
adCmdStoredProcCommand是存储过程名称
adCmdTableCommand是能产生内部SELECT*FROMTableName查询的表名称
adCmdTableDirectCommand是能直接从表中获取行内容的表名称
adCmdTextCommand是一条SQL语句->

如果你奇怪为什么我不提供一个COM对象来处理这个功能,那是因为它会把你锁定 到细节设计中这个问题,您一定无法想像有多容易,您可以产生任何形状的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的实№边界为限

functionSend_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment)
'codebyNetPatch
'VBS发送邮件参数说明
'You_Account:你的邮件帐号
'You_Password:你的邮件密码
'Send_Email:主要邮件地址
'Send_Email2:备用邮件地址
'Send_Topic:邮件主题
'Send_Body:邮件内容
'Send_Attachment:邮件附件

You_ID=Split(You_Account,"@",-1,vbTextCompare)
'帐号和服务器分离
MS_Space=""
'这个是必须要的,不过可以放心的事,不会通过微软发送邮件
SetEmail=CreateObject("CDO.Message")
Email.From=You_Account
'这个一定要和发送邮件的帐号一样
Email.To=Send_Email'主要邮件地址

IfSend_Email2<>""Then
Email.CC=Send_Email2'备用邮件地址
EndIf

Email.Subject=Send_Topic'邮件主题
Email.Textbody=Send_Body'邮件内容

IfSend_Attachment<>""Then
Email.AddAttachmentSend_Attachment'邮件附件
EndIf

WithEmail.Configuration.Fields
.Item(MS_Space&"sendusing")=2'发信端口
.Item(MS_Space&"smtpserver")="smtp."&You_ID(1)'SMTP服务器地址
.Item(MS_Space&"smtpserverport")=25'SMTP服务器端口
.Item(MS_Space&"smtpauthenticate")=1'cdobasec
.Item(MS_Space&"sendusername")=You_ID(0)'你的邮件帐号
.Item(MS_Space&"sendpassword")=You_Password'你的邮件密码
.Update
EndWith
Email.Send
'发送邮件
SetEmail=Nothing
'关闭组件

Send_Mail=True
'如果没有任何错误信息,则表示发送成功,否则发送失败
IfErrThen
Err.Clear
Send_Mail=False
EndIf
EndFunction

'以下是利用上面的函数发送带附件的邮件例子
IfSend_Mail("test@163.com","test","test2@163.com","","邮件主题","邮件内容","d:\test.exe")=TrueThen
Wscript.Echo"发送成功"
Else
Wscript.Echo"发送失败"
EndIf

->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->
->

返回不带前导空格 (LTrim)、后续空格 (RTrim) 或前导与后续空格 (Trim) 的字符串副本跌倒应急预案
VB程序也能加入此功能,步骤如下:

一、申明定义热键的API函数
PrivateDeclareFunctionGetAsyncKeyStateLib"user32"_
(ByValvKeyAsLong)AsInteger

二、声明定义热键变量
PrivateFunctionMyHotKey(vKeyCode)AsBoolean
MyHotKey=(GetAsyncKeyState(vKeyCode)<0)
EndFunction

三、在Timer1_Timer中加入:
PrivateSubTimer1_Timer()
'定义热键
IfMyHotKey(vbKeyF12)Then
Me.Visible=True'(设程序启动时窗体不可见)
EndIf
EndSub

说明:以上代码是笔者一个程序中的一部分,运行成功
不管怎样,获得文件集合后,我们创建一个FileSystemObject实例然后建立一个ForEach循环以遍历此组文件。

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