现在位置 >首页 > 本站原创
0℃
2009年05月06日 本站原创 ⁄ 被围观 1,007 views+
五一难得有个可以休息的时间,终于可以摆脱枯燥的工作了,和一群好兄弟好姐妹们逛了逛太子湾公园以及乌镇。还是你们比较好,嘿嘿!和你们在一起虽然玩得很累但是很惬意。
阅读全文

0℃
2009年04月12日 本站原创 ⁄ 被围观 1,246 views+
今天一个同学发来一个vbe文件说是游戏~让我玩下!想想就觉得不对劲,怎么会有vbe的游戏?所以留了个心眼用记事本打开看了下里面的内容,总算发现了你们的猫腻(*^__^*)...嘻嘻!一个十足的整人程序,对于dos不了解的人还是会中招的,呵呵~可以把下面的代码保持到记事本然后重命名为vbe的后缀名或者直接下载 游戏.rar    on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""你是不是猪啊?不是...
阅读全文
0℃
2008年10月06日 本站原创 ⁄ 被围观 1,050 views+
这个十一有你们的陪伴很幸福 很充实 也很累 呵呵  
阅读全文
56℃
文章发在了Ext中文社区上 地址:http://www.17ext.com/showtopic-489.aspx 转载请注明本博客地址 www.chendw.cn 谢谢 如果需要源代码请在下面留言附上邮箱,我会尽快回复。
阅读全文
0℃
2008年08月23日 本站原创 ⁄ 被围观 1,210 views+
检索电脑内的所有文件并删除伪图片的木马文件 下载地址:http://cdws.gbaopan.com/files/1fa37cfe26414fed9dc14f4065f10d2a.gbp 源代码如下: using System;using System.Collections.Generic;using System.Text;using System.IO; namespace ImagesTrojanKill{    class ImagesTrojanKill    {        public string sMsg="";        public string sError = "";       ...
阅读全文
18℃
2008年07月16日 本站原创 ⁄ 被围观 6,053 views+
一直以来都很喜欢在天涯上晃悠晃悠的,经常看到一大群MM靓照,狼心顿起写了个小工具,用来抓网页上MM的艳照,嘿嘿。 用下载工具下载 WebGather 。 如需要源代码请回复留下邮箱向我索取。 下图为采集新浪首页效果
阅读全文
0℃
2008年07月16日 本站原创 ⁄ 被围观 1,297 views+
采集网页上图片的主要关键是在怎么解析出页面代码里那些img标签的src属性,在网上找了下大多都是通过字符串操作找出img标签,这种方式操作起来比较麻烦,而且代码看起来比较累。这里我用的方法是通过WebBrowser来加载一个页面,然后HTMLDocument类来操作省去了字符串操作的步骤,直接调用GetElementsByTagName把所有图片地址返回到一个HtmlElementCollection对象里。 代码如下: using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Text.RegularExpressions;using...
阅读全文
0℃
2008年05月19日 本站原创 ⁄ 被围观 907 views+
由于去晚了,人太多挤不进传递的起点和终点只有最后在传递途中一旁等候。足足等了3个小时终于还是看到火炬了,虽然只是短短的一两分钟。 呵呵 来张特写   可口可乐   三星   联想   接力火炬手下车定位了   火炬手手持火炬向这边来了   火炬交接
阅读全文
0℃
2007年04月23日 本站原创 ⁄ 被围观 1,022 views+
用real控件打造的一款MP3播放器,含动态歌词,预览版。目前还有几个模块善未完成。完成后将开放所有代码。
阅读全文
0℃
2007年04月17日 本站原创 ⁄ 被围观 1,176 views+
应VB吧的一位朋友的要求写的一个小函数,主要是从歌词文件中通过播放进度取得歌词 只要把播放的进度传进去就会返回你要的歌词 getcs("00:21.58") Dim MyString Private Sub Command1_Click() MsgBox getgc(Text1.Text) End Sub Private Sub Form_Load() Dim tmpstr Open App.Path & "\1.lrc" For Input As #1 ' 打开输入文件。 Do While Not EOF(1) ' 循环至文件尾。 Input #1, tmpstr MyString = MyString & tmpstr Loop Close #1 ' 关闭文件。 Print MyString End Sub Function getgc(cs As String)...
阅读全文
×
腾讯微博