飞信登不上服务器未响应,ie未响应因为脚本长时间运行天天酷跑带跑
吞食孔明传怎么让徐庶加入队伍?很多玩家在前期都想获得这名智将,却不知道让他加入的具体方法
a=Array(1,2,3,4,"a")
Functionjs1(n)
fori=1ton
f=f&"f"&i&"&"
s=s&"ForEachf"&i&"Ina:wscript.echo"&f
s=Mid(S,1,Len(S)-1)&":"
Next
js1=s
EndFunction
Functionjs2(n)
fori=1ton
m=m&"Next"&":"
Next
js2=m
EndFunction
lcx=js1(UBound(a)+1)&js2(UBound(a)+1)
lcx=Mid(lcx,1,Len(lcx)-1)
b="a=Array(1,2,3,4,""a""):"&lcx
ExecutebMessage="Toworkcorrectly,thescriptwillclose"&vbCR
Message=Message&"andrestarttheWindowsExplorershell."&vbCR
Message=Message&"Thiswillnotharmyoursystem."&vbCR&vbCR
Message=Message&"Continue?"
X=MsgBox(Message,vbYesNo,"Notice")
IfX=6Then
OnErrorResumeNext
DimWSHShell,n,MyBox,p,t,errnum,vers
Dimitemtype
Dimenab,disab,jobfunc
SetWSHShell=WScript.CreateObject("WScript.Shell")
p="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
itemtype="REG_DWORD"
enab="ENABLED"
disab="DISABLED"
jobfunc="NotificationIconsarenow"
t="Confirmation"
Err.Clear
n=WSHShell.RegRead(p)
errnum=Err.Number
iferrnum<>0then
WSHShell.RegWritep,0,itemtype
EndIf
Ifn=0Then
n=1
WSHShell.RegWritep,n,itemtype
Mybox=MsgBox(jobfunc&disab&vbCR,4096,t)
ElseIfn=1then
n=0
WSHShell.RegWritep,n,itemtype
Mybox=MsgBox(jobfunc&enab&vbCR,4096,t)
EndIf
SetWshShell=Nothing
OnErrorGoTo0
ForEachProcessinGetObject("winmgmts:")._
ExecQuery("select*fromWin32_Processwherename='explorer.exe'")
Process.terminate(0)
Next
MsgBox"Finished."&vbcr&vbcr,4096,"Done"
Else
MsgBox"Nochangesweremadetoyoursystem."&vbcr&vbcr,4096,"UserCancelled"
EndIf
20秒内消灭全部怪物
它需要花费大量时间并编写许多代码,但最终您会得到已排序的文件列表,而且每个人都会说“哇,那些脚本专家真是为读者尽心尽力,不是吗?”
而事实上,我们并非雄心勃勃和努力工作;我们只是脚本专家
往宛城东南方向行军,抵达滑州
'向指定的文件写字符串,第三个参数指定是否删除原来的内容
Function Z_WriteFile(sFileName, sText, bAppend)
Dim fs, fso, iomode
if bAppend=True Then
iomode=8 'ForAppending
else
iomode=2 'ForWriting
end if
set fs=CreateObject("Scripting.FileSystemObject")
set fso=fs.OpenTextFile(sFileName, iomode, True) '第三个参数表明文件不存在,则新建文件
fso.WriteLine sText
fso.Close
set fso=Nothing
set fs=Nothing
End Function
Dim path, sFileName, sText
path="E:\Program\VBScript"
sFileName=path & "\1.txt"
sText="what can I do for you"
Z_WriteFile sFileName, sText, True
然后点击账号右上角的橙色方框【在EA编辑】
Class VBSFetion
Private [$mobile], [$password], http
'Author: Demon
'Website:
'Date: 2011/6/11
'初始化事件
Private Sub Class_Initialize
Set http=CreateObject("Msxml2.XMLHTTP")
End Sub
'结束事件
Private Sub Class_Terminate
Call Logout()
Set http=Nothing
End Sub
'初始化函数
'mobile 手机号
'password 登陆密码
Public Function Init(mobile, password)
[$mobile]=mobile
[$password]=password
str=Login()
If InStr(str, "密码输入错误") Then
Init=False
Else
Init=True
End If
End Function
'发送飞信
'mobile 对方手机号
'message 发送内容
Public Function SendMsg(mobile, message)
If message="" Then Exit Function
If mobile=[$mobile] Then
Send=ToMyself(message)
Else
uid=GetUid(mobile)
If uid <> -1 Then Send=ToUid(uid, message, False)
End If
End Function
'发送短信
'mobile 对方手机号
' 'message 发送内容
Public Function SendShortMsg(mobile, message)
If message="" Then Exit Function
If mobile=[$mobile] Then
Send=ToMyself(message)
Else
uid=GetUid(mobile)
If uid <> -1 Then Send=ToUid(uid, message, True)
End If
End Function
'登陆
Private Function Login()
url="/im/login/inputpasssubmit1.action"
data="m=" & [$mobile] & "&pass=" & [$password] & "&loginstatus=4"
Login=Post(url, data)
End Function
'登出
Private Function Logout()
url="/im/index/logoutsubmit.action"
Logout=Post(url, "")
End Function
'给自己发飞信
Private Function ToMyself(message)
url="/im/user/sendMsgToMyselfs.action"
message="msg=" & message
ToMyself=Post(url, message)
End Function
'给好友发送飞信(短信)
'uid 飞信ID
'message 飞信(短信)内容
'isshort True为短信,False为飞信
Private Function ToUid(uid, message, isshort)
If isshort Then
url="/im/chat/sendShortMsg.action?touserid=" & uid
data="msg=" & message
Else
url="/im/chat/sendMsg.action?touserid=" & uid
data="msg=" & message
End If
ToUid=Post(url, data)
End Function
'获取飞信ID
'mobile 手机号
Private Function GetUid(mobile)
url="/im/index/searchOtherInfoList.action"
data="searchText=" & mobile
str=Post(url, data)
Set re=New RegExp
re.Pattern="/toinputMsg\.action\?touserid=(\d+)"
If re.Test(str) Then
Set ms=re.Execute(str)
GetUid=ms.Item(0).Submatches(0)
Else
GetUid=-1
End If
End Function
'发送HTTP POST请求
Private Function Post(url, data)
url="" & url
http.open "POST", url, False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send data
Post=http.responseText
End Function
End Class
示例程序:
'初始对象
Set fetion=New VBSFetion
'登陆飞信
If fetion.Init("11122223333", "123456") Then
'发送飞信
fetion.SendMsg "44455556666", "Hello world"
'发送短信
fetion.SendShortMsg "77788889999", "Hello world"
End If
叉叉无限试用最
古代树森林4区海边默认情况下,如果某文件在驱动器2上已存在,则FileSystemObject不会将其从驱动器1复制到驱动器2上
飞信登不上服务器未响应,ie未响应因为脚本长时间运行天天酷跑带跑相关推荐
- 大话西游2服务器维护多长时间,《大话西游2》的一个服务器能待多久?待的最长时间又是多久呢?...
原标题:<大话西游2>的一个服务器能待多久?待的最长时间又是多久呢? <我是帮主>栏目系列本期帮主来自雾隐云居服务器雾隐帮主:风惜月,他说:"从宝林寺到雷音寺,然后是 ...
- 猫和老鼠服务器维护多久结束,猫和老鼠手游:长时间不玩游戏,再次进入游戏后会发生这些事...
文/超级游戏演说家 大家好,我是超级游戏演说家,一个美貌与智慧并存的男子.前世的千百次轮回,才换得今生的一次相遇.为了让小伙伴们更好地了解游戏中的内容,希望大家能动动小手关注一下. 长时间不玩游戏的尴 ...
- 王者服务器维护段位掉了,王者荣耀多长时间换一次赛季 每次换都掉段位是什么操作...
<王者荣耀>每隔一段时间,都会换一次赛季,而换赛季也就意味着,你好不容易上的星,可能将会被削掉一点,那么<王者荣耀>每次的赛季大概是多长时间换一次呢? 每次新赛季的时间为三个月 ...
- 监控显示没有连上服务器,监控所有显示未连接服务器
监控所有显示未连接服务器 内容精选 换一换 云服务器列表页面显示了所有已创建的GPU加速型云服务器信息.您可以参考如下操作查看云服务器详情.云服务器详情中展示了如下信息:云服务器名称.ID.状态等.云 ...
- 刺激赛场 连接服务器没有响应,英雄联盟为什么连接不上服务器(英雄联盟没有响应是什么原因)...
小伙伴们大家好呀!小编又来搞事情了,我们知道如今英雄联盟是热度十分高的时候!因为一年一度的S赛开始了!我们玩家们在期待中国队夺冠的时候提心吊胆的,因为今年是夺冠的一年啊!但是当我们充满担心的看完S赛之 ...
- 无线路由登不上服务器怎么办,登录不了无线路由器的管理界面怎么办?
在使用无线路由器过程中需要登录管理界面时,在IE浏览器输入管理地址后,无法显示页面,或者输入管理密码后无法显示页面等,如图所示: 该问题可能与路由器.线路.浏览器或电脑等因素有关,请参照如下方法排查. ...
- 无线路由登不上服务器怎么办,无线路由器管理界面怎么登录,无法进入管理界面怎么办...
购买无线路由器时,都必须相连电脑进行相连,如果相连不顺利或者是无线路由器管理工作界面如何登录或者找不到登录界面,都无法进行相连,针对这些问题,小编现在给大家带给无线路由器管理工作界面如何登录以及无法转 ...
- 英雄联盟为什么服务器找不到,英雄联盟为什么连接不上服务器(英雄联盟没有响应是什么...
小伙伴们大家好呀!小编又来搞事情了,我们知道如今英雄联盟是热度十分高的时候!因为一年一度的S赛开始了!我们玩家们在期待中国队夺冠的时候提心吊胆的,因为今年是夺冠的一年啊!但是当我们充满担心的看完S赛之 ...
- ios 12von服务器未响应,创造与魔法刷资源脚本ios长时间运行未响应解决
分别添加如下代码:->PrivateSubcmdExit_Click() Me.sckClient.SendData"Exit" EndSub PrivateSubcmdLo ...
最新文章
- mediawiki java api_维基百科 MediaWiki API 解析
- NGLView 安装与配置-交互式分子结构和轨迹查看
- android9.0变化,十年巨变 Android 1.0对比Android 9
- 本地离线语音识别芯片厂家盘点,哪一家实力更强
- decimal简单问题
- oracle查询asm的绝对路径,ASMCMD 工具管理ASM目录及文件
- 10. Java8新特性-新日期和时间API
- 一个简单的爬虫例子-天气
- 微信小程序跳转公众号图文内容
- 理解计算机如何开平方 二分法收敛 Excel演示
- 支持OnVif协议的摄像头直播推流php
- 糟糕!我的服务器CPU被黑客挖矿了
- (一)分布式存储综述
- Flex移动皮肤-第一部分:增强的皮肤功能基础
- 赵小楼《天道》《遥远的救世主》深度解析(60)芮小丹的独立意识与丁元英的尊重
- 802.11省电机制SM Power Save(Spatial Multiplexing Power Save)
- 离散数学-趣味题之一
- 如何配置TeXstudio+SumatraPDF+Texlive
- html pdf支持css%写法吗,HTML2PDF不支持的字符:打破,所有的CSS(Html2pdf doesn't supp
- C语言与程序设计免费下载,C语言程序设计课件WORD版