神剑山庄资源网 Design By www.hcban.com
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
标签:
vbs,发送邮件
神剑山庄资源网 Design By www.hcban.com
神剑山庄资源网
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
神剑山庄资源网 Design By www.hcban.com
暂无用vbs实现向任何电子邮件发送邮件的评论...
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
2024年09月28日
2024年09月28日
- 孙悦.1996-伙伴【正大国际】【WAV+CUE】
- 纪钧瀚《钢琴阅读时光 雨中书店聆听轻音乐》[FLAC/分轨][399.62MB]
- 证声音乐图书馆《走向自然 疗心爵士乐》[320K/MP3][87.4MB]
- 证声音乐图书馆《走向自然 疗心爵士乐》[FLAC/分轨][184.94MB]
- 陈慧娴.2018-Priscilla-Ism演唱会3CD(2024环球红馆40复刻系列)【环球】【WAV+CUE】
- 郑秀文.1999-我应该得到(国)【华纳】【WAV+CUE】
- 陈家慧.2011-钢琴酒吧2CD【龙吟唱片】【WAV+CUE】
- 证声音乐图书馆《雨季 蓝调吉他 Rainy Blues》[320K/MP3][45.01MB]
- 证声音乐图书馆《雨季 蓝调吉他 Rainy Blues》[FLAC/分轨][109.13MB]
- 赞多《序章》[320K/MP3][45.54MB]
- 许巍.2004-每一刻都是崭新的【步升大风】【WAV+CUE】
- 群星.2024-四方馆影视原声带【韶愔音乐】【FLAC分轨】
- 陈雷.1997-安锁咧【金圆唱片】【WAV+CUE】
- 关淑怡.2013-MY.FAVORITE.SK.3CD【环球】【WAV+CUE】
- Sweety.2006-花言乔语【丰华】【WAV+CUE】