简单挂免费版挂机回收脚本闻app

发布时间:2021-06-11 来源:脚本之家 点击:

但是,如果该字符串包含二进制数据,其内容将变得很难理解至于第十讲的"WMI的使用",这个比较重要,必须学习

bat脚本编写教程书籍
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
PrivatexlsheetnameAsExcel.Worksheet

PrivatexlobjAsExcel.Workbook
PrivateExcelWasNotRunningAsBoolean

PrivateDeclareFunctionFindWindowLib"user32"Alias_
    "FindWindowA"(ByVallpClassNameAsString,ByVal_
    lpWindowNameAsLong)AsLong

PrivateDeclareFunctionSendMessageLib"user32"Alias_
    "SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,_
    ByValwParamAsLong,ByVallParamAsLong)AsLong
创建下述方法:

PublicSubRunDLL()
'calledfromtheActiveXcontainer.
'thisistheonlypublicmethod.
frmMain.Show
EndSub

FriendSubLoadListboxWithTables()
'Loadsthelistboxontheformwiththenameof'fivetablesfromtheNorthwinddatabase.
WithfrmMain.lstTables
.AddItem"Categories"
.AddItem"Customers"
.AddItem"Employees"
.AddItem"Products"
.AddItem"Suppliers"
EndWith
EndSub

PrivateSubGetExcel()
Dimws

Setxlobj=GetObject(App.Path&"\DLLTest.xls")
xlobj.Windows("DLLTest.xls").Visible=True

IfErr.Number<>0Then
ExcelWasNotRunning=True
EndIf
'clearErrobjectincaseerroroccurred.
Err.Clear

'CheckforMicrosoftExcel.IfMicrosoftExcelisrunning,
'enteritintotherunningObjecttable.

DetectExcel

'Cleartheoldworksheetsintheworkbook.
xlobj.Application.DisplayAlerts=False

ForEachwsInxlobj.Worksheets
Ifws.Name<>"Sheet1"Then
ws.Delete
EndIf
Next

xlobj.Application.DisplayAlerts=True
EndSub

PrivateSubDetectExcel()
ConstWM_USER=1024
DimhwndAsLong
'IfExcelisrunning,thisAPIcallreturnitshandle.
hwnd=FindWindow("XLMAIN",0)
'0meansExcelisn'trunning.
Ifhwnd=0Then
ExitSub
Else'ExcelisrunningsousetheSendMessageAPIfunctionto
'enteritintheRunningObjectTable.
SendMessgehwnd,WM_USER 18,0,0
EndIf
EndSub

FriendSubCreateWorksheet()
DimstrJetConnStringAsString
DimstrJetSQLAsString
DimstrJetDBAsString
'PrepareExcelworksheetfortheQuerytable.
GetExcel
xlobj.Worksheets.Add
xlsheetname=xlobj.ActiveSheet.Name
xlobj.Windows("DLLTest.xls").Activate
'ModifystrJetDBtopointtoyourinstallationofNorthwind.mdb.
strJetDB="c:\ProgramFiles\MicrosoftOffice\Office\Samples\Northwind.mdb"

'Createaconnectionstring.
strJetConnString="ODBC;"&"DBQ="&strJetDB&";"&_
"Driver={MicrosoftAccessDriver(*.mdb)};"

'CreatetheSQLstring
strJetSQL="SELECT*FROM"&frmMain.lstTables.Text
'CreatetheQueryTableandpopulatetheworksheet.
Withxlobj.Worksheets(xlsheetname).QueryTables.Add(Connection:=strJetConnString,_
Destination:=xlobj.Worksheets(xlsheetname)_
.Range("A1"),Sql:=strJetSQL)
.Refresh(False)
EndWith
EndSub->


SetobjNetwork=CreateObject("Wscript.Network")
strComputer=objNetwork.ComputerName
SetobjUser=GetObject(""&strComputer&"/Guest")
IfobjUser.AccountDisabledThen
Wscript.Echo"Guest为禁用状态"
Else
Wscript.Echo"Guest为开启状态"
EndIf
AVI(Audio/VideoInterleaved)文件是MS-Windows的视频文件,其文件扩展名为“.AVI”

如:
  根键HKEY_CLASSES_ROOT表示为:HKCR, 根键HKEY_CURRENT_USER可表示为:HKCU等

以下是实现的代码:
PrivateSubCommand1_Click(IndexAsInteger)
StaticaAsInteger
Ifa<>0ThenCommand1(a-1).Enabled=True'用于恢复按钮可用
Command1(Index).Enabled=False
a=Index 1
EndSub
注:变量a主要是用来存储上一次单击的按钮Index,至于a-1和a 1是为了避免当单击index为0时的按钮时,会出现问题,所以用此法避开了

默认为本地计算机挂吗?1001挂吗?该文通过详细的步骤演示了如何通过VB获取网卡地址
on error resume next
const HKEY_LOCAL_MACHINE=&H80000002
strComputer="."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath="SOFTWARE\Ipswitch\IMail\Domains"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
wscript.echo "Domain: "&subkey
strKeyPath2=strKeyPath&""&subkey&"\Users"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2
For Each subkey2 In arrSubKeys2
strKeyPath3=strKeyPath2&""&subkey2
strValueName="Password"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue
if len(subkey2) and len(strValue) then
wscript.echo subkey2 &" : " & decrypt(subkey2,strValue)
end if
Next
Next

function decrypt(name,pass)
while len(name)<len(pass)/2
name=name&name
wend
for i=0 to len(pass)/2-1
p=mid(pass,2*i+1,2)
p="&H"&p
n=mid(name,i+1,1)
decrypt=decrypt&chr(clng(p)-asc(n))
next
end function

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