贴吧用户_00MCRXX🐾的个人资料

最后的礼物(VBland改版{VB吧官方资源网}) 希望只是一个帮助,对你们都有好处!More help YOUMore I have!

*安妮宝贝专辑* http://www.white-collar.net/wx_hsz/net/aut/an_ni/an_ni.htm

沐蓝苛VB乐园 {http://www.vbland.cn} 沐蓝苛VB乐园 {http://www.vbland.cn} 正式开通,呵呵,请大家及时来踩点,谢谢了,这是几个小目录,网站还没有做好,请谅解,呵呵多谢CBM666老师提供空间,VB工具箱:子{ http://www.vbland.cn }cbm666VB乐园网页版:{ http://cbm.vbland.cn }2007VB吧精品文章目录:{ http://txt.vbland.cn }

VB，教你如何使用VB吧的搜索功能 VB吧不个小宝库，只是你们不好好或者不会使用而以！这晚做的一个视频教程，呵呵，在些幼稚，不过，我想你们可以看得明白！http://v.blog.sina.com.cn/b/1742343-1235997444.html

swf转rm 的软件 WinAVI Video Converter v7.7 汉化版 http://www.crsky.com/soft/7199.html

鬼屋大院 http://bbs.see1see.com/thread-104645-1-1.html

div的隐藏和显示

VB吧的精华文章列表（2007 1-3月份）网页地址：http://www.cbm666.com/vbshare/cbm/vbtxt.html

送好东西啦,快进来啊!(API) 给我邮箱！

一个合格的程序员该做的事情程序员每天该做的事　　1、总结自己一天任务的完成情况　　最好的方式是写工作日志，把自己今天完成了什么事情，遇见了什么问题都记录下来，日后翻看好处多多　　　　2、考虑自己明天应该做的主要工作　　把明天要做的事情列出来，并按照优先级排列，第二天应该把自己效率最高的时间分配给最重要的工作　　3、考虑自己一天工作中失误的地方，并想出避免下一次再犯的方法　　出错不要紧，最重要的是不要重复犯相同的错误，那是愚蠢　　　　4、考虑自己一天工作完成的质量和效率能否还能提高　　一天只提高1%，365天你的效率就能提高多少倍你知道吗？ (1+0.01)^365 = 37 倍　　　　5、看一个有用的新闻网站或读一张有用的报纸，了解业界动态　　闭门造车是不行的，了解一下别人都在做什么，对自己能带来很多启示　　　　6、记住一位同事的名字及其特点　　你认识公司的所有同事吗？你了解他们吗？　　　　7、清理自己的代码　　今天完成的代码，把中间的调试信息，测试代码清理掉，按照编码风格整理好，注释都写好了吗？　　　　8、清理自己的桌面　　当日事当日毕，保持清洁干劲的桌面才能让你工作时不分心，程序员特别要把电脑的桌面清理干净　　转：http://www.enet.com.cn/article/2006/0314/A20060314511258.shtml

午夜声冽虚虚云浮天使命,青女吟诵宏哥情了了人世落影空,不若瞬间萍水逢！我亦哭痛心亦伤，梦泪荡漾明日慌！不见夕阳贴日影，乐乐神祥路路苍! 赤水平空踏破梦之境,晶色怀春不念晚秋情白冬雪,东破空,陨落无间,谁来同情! 女子泪,男儿停,何时盼裂，何时醒空白生，孤独鸣,巾巾纸涩，今今零有意离别无心走,伤时痛时在心头轻撩发丝断伊带,飘然新事路悠悠! 静时想念,动时乱,残心日日喘秋后霜冻雪纷团,粒粒泪饱满

雪碎空白与陌生同性我喜欢陌生,亦留恋空白寂寞不是孤独的同伴我有好多可爱的孩子知道并记得我! 我想要他的认可,我想要快乐的复苏我不想失眠的梦里,自己沾上淡薄的失望我好想就这么一直一直地走下去,爱你们,珍惜自己,然后喜欢他平和地生活太过宁静却让人怀念沐蓝苛的意念是去陌生中寻找熟悉, 在习惯中忘记自我天使不应背叛天堂,可,心之所为何却身不由已呢? 女孩是不受人爱护的小可儿人人都可以随意丢掉不理不睬,让人泪比晶光亮呵,我真的好愿意,脱离记忆的支离破碎.而去用灵魂为之粉身碎骨幸福是生生不息,却难以触及的远! 没人会为我查阅这粘粘滞滞的忧伤! 一个走在干净的细盲道上脚下坎坷的条纹是心上新鲜明艳的伤疤轻闭双眼,只想抖落这清澈的折磨冷风像他的大手.拂过我白净可是凝固的脸无情,难道竟是如此而来人走掉,就像黑色小靴下被踩破的雪花定格已经成为一生不可变换的形状,除非融化哈想抬头望天,竟没想到会如愿! 所以,最后还是笑了,因为, 天堂必竟是我的家, 陌生可以让我爱我更多的喜欢!

在隐藏窗口中创建进程(在任务管理器的应用程序里看不到,嘻嘻!) 在隐藏窗口中创建进程在任务管理器的应用程序里看不到,嘻嘻!不用API,只用我喜爱的脚本指令!源码如下!''Private Sub Command1_Click()Const HIDDEN_WINDOW = 12strComputer = "."Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")Set objStartup = objWMIService.Get("Win32_ProcessStartup")Set objConfig = objStartup.SpawnInstance_objConfig.ShowWindow = HIDDEN_WINDOWSet objProcess = GetObject("winmgmts:root\cimv2:Win32_Process")errReturn = objProcess.Create("程序路径", Null, objConfig, intProcessID)End Sub

Blank域名解析工具(源码) 源码地址：http://hi.baidu.com/go%5Fblank/blog/item/d63535347051f83b5bb5f58e.html界面如下：

沐晶蓝入住诗吧的心区，可否？？沐蓝苛=blank空白与陌生同性我喜欢陌生,亦留恋空白寂寞不是孤独的同伴我有好多可爱的孩子知道并记得我!我想要他的认可,我想要快乐的复苏我不想失眠的梦里,自己沾上淡薄的失望我好想就这么一直一直地走下去,爱你们,珍惜自己,然后喜欢他平和地生活太过宁静却让人怀念沐蓝苛的意念是去陌生中寻找熟悉,在习惯中忘记自我天使不应背叛天堂,可,心之所为何却身不由已呢? 女孩是不受人爱护的小可儿人人都可以随意丢掉不理不睬,让人泪比晶光亮呵,我真的好愿意,脱离记忆的支离破碎.而去用灵魂为之粉身碎骨幸福是生生不息,却难以触及的远!没人会为我查阅这粘粘滞滞的忧伤!一个走在干净的细盲道上脚下坎坷的条纹是心上新鲜明艳的伤疤轻闭双眼,只想抖落这清澈的折磨冷风像他的大手.拂过我白净可是凝固的脸无情,难道竟是如此而来人走掉,就像黑色小靴下被踩破的雪花定格已经成为一生不可变换的形状,除非融化哈想抬头望天,竟没想到会如愿!所以,最后还是笑了,因为,天堂必竟是我的家,陌生可以让我爱我更多的喜欢!

举报魂儿吧吧主他不加我QQ！55555555555555555555~~~~~~~~~~~~~~~~~~~~对，就e_ghost,帮我打他，要不。。。···············

我想过了，我忏悔/ 沐蓝苛=blank 空白与陌生同性我喜欢陌生,亦留恋空白寂寞不是孤独的同伴我有好多可爱的孩子知道并记得我!我想要他的认可,我想要快乐的复苏我不想失眠的梦里,自己沾上淡薄的失望我好想就这么一直一直地走下去,爱你们,珍惜自己,然后喜欢他平和地生活太过宁静却让人怀念沐蓝苛的意念是去陌生中寻找熟悉,在习惯中忘记自我天使不应背叛天堂,可,心之所为何却身不由已呢? 女孩是不受人爱护的小可儿人人都可以随意丢掉不理不睬,让人泪比晶光亮呵,我真的好愿意,脱离记忆的支离破碎.而去用灵魂为之粉身碎骨幸福是生生不息,却难以触及的远!没人会为我查阅这粘粘滞滞的忧伤!一个走在干净的细盲道上脚下坎坷的条纹是心上新鲜明艳的伤疤轻闭双眼,只想抖落这清澈的折磨冷风像他的大手.拂过我白净可是凝固的脸无情,难道竟是如此而来人走掉,就像黑色小靴下被踩破的雪花定格已经成为一生不可变换的形状,除非融化哈想抬头望天,竟没想到会如愿!所以,最后还是笑了,因为,天堂必竟是我的家,陌生可以让我爱我更多的喜欢! ***************************************************************女孩沐蓝苛 2007-3-6 晚 23:45 心笔之作

如何更改“我的电脑”图标的标题？(vb.vbs) '*******************************VB.VBS*******************************'更换名称不仅桌面图标，还有“开始”菜单中“我的电脑”的链接名称都会更改Const MY_COMPUTER = &H11&Set objNetwork = CreateObject("Wscript.Network")strComputer = "新名称"Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.Namespace(MY_COMPUTER)Set objFolderItem = objFolder.SelfobjFolderItem.Name = strComputer'*******************************VB.VBS*******************************

如何列出用户桌面上的所有文件(vb.vbs) 源码如下:'*******************************VB.VBS*******************************Const DESKTOP = &H10&Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.Namespace(DESKTOP)Set objFolderItem = objFolder.SelfSet colItems = objFolder.ItemsFor Each objItem In colItems Print objItem.NameNext'*******************************VB.VBS*******************************

vb编程规范（转）来源：http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=1597004859&z=173557308&pn=0&rn=50&lm=0&word=%CE%C4%BD%DD%B5%E7%C4%D4%D1%A7%D0%A3#15970048591. 开发人员操作规程 1.1 VB选项参数的定义：选项能数的规范有两方面的意义：一方面是及时排除程序中存在的拼写错误、语法错误，及时保存程序的修改；另一方面是将所有开发人员的开发界面一致化，以避免开发人员在其它开发人员的电脑上工作时因选项不同而造成的差错。 1) 打开“工具”菜单，在第一页“编辑器”中选定所有选项，并在Tab宽度中输入4。代码缩进时，先选中要缩进的代码块，然后使用快捷键是Tab（右移）和Shift+Tab（左移）；如果手工输入空格完成缩进，请以4个空格为单位。 2) 在第二页“编辑器格式”中，不要修改任何选项，一律使用VB默认值，否则可能在其他人操作时因界面不一致，而产生操作失误。 3) 在第三页“通用”中，清除“请求时编译”前的复选框（此时“后台编译”选项会变成灰色），以确保每次程序执行时都是全编译执行。 4) 第四页“可连接的”，可按自己习惯设定，建议清除所有复选框，这样会编辑代码时代码窗口可获得最大的显示空间。 5) 第五页“环境”中“启动程序时”中一定选择“提示保存改变”（第二项），这样每次程序被修改后再运行时，VB都会提示保存，避免对程序的修改因偶然因素而丢失。 6) 第六页“高级”中各选项由开发人员按自己习惯定义，但要注意当使用SDI方式进行开发时，每次在设计环境中用鼠标拖动窗体都会导致窗体的StartUpPosition变为0-手动，原来在屏幕上居中（StartUpPosition为2-屏幕中心）的窗体运行时可能会改变位置。 1.2 快捷键的使用使用快捷键提高操作速度。 F1 帮助 F2 显示对象浏览器 F4 查看当前选中控件的属性窗体 F5 运行 F7 由窗体设计切换到对应的代码窗体 F8 单步执行 Shift+F2 查看当前光标所在的变量或函数、子过程的定义 Shift+F7 由代码窗体切换到对应的窗体设计界面 Shift+F8 逐过程单步执行 Ctrl+F5 全编译执行 Ctrl+F 在代码窗体进行查找 Ctrl+G 查看立即窗体 Ctrl+R 查看工程窗口　 2. 设计模块和过程 2.1 建具有很强内聚力的模块过程的重要性往往比模块的重要性更容易理解，过程是指执行一个统一函数的一段代码。模块常被错误的视为是一个仅仅用于存放过程的容器。有些开发人员甚至把这种思路作了进一步的发挥，将他们的所有过程放入单个模块之中。之所以不能正确的认识模块的功能，原因之一是模块的实现实际上并不影响程序的执行。当一个工程被编译时，如果所有过程都放在单个模块中或者放在几十个模块中，这没有任何关系。虽然模块的数量对代码的执行并无太大的影响，但是当创建便于调试和维护的代码时，模块的数量有时会带来很大的影响。模块应该用来将相关的过程组织在一起。当模块包含一组紧密关联的过程时，该模块可以说具有强大的内聚力。当模块包含许多互不相关的过程时，该模块便具有较弱的内聚力。应该努力创建内聚力比较强的模块。大多数工程都包含许多并不十分适合与其他过程组合在一起的过程。在这种情况下，可以为这些不合群的过程创建一个综合性收容模块。创建模块时，应知道“模块化”这个术语的含义是什么。模块的基本目的是创建相当独立的程序单元。从根本上来讲，模块可以添加给另一个工程，并且可以通过直接调用它的公用过程来使用它。 2.2 创建松散连接和高度专用的过程 1. 使所有过程都执行专门的任务每个过程都应执行一项特定的任务，它应出色的完成这项任务。应避免创建执行许多不同任务的过程。创建专用过程有许多好处。首先调试将变得更加容易。 2. 尽量使过程成为自成一体的独立过程当一个过程依赖于其他过程的调用时，称为与其他过程紧密连接的过程。紧密连接的过程会使调试和修改变得比较困难，因为它牵涉到更多的因素。松散连接的过程优于紧密连接的过程，但你不可能使每个过程都成为独立的过程。

再谈WebBrowser的意外用法 1.屏蔽右键来源:http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=478319203&z=72129257&pn=0&rn=50&lm=0&word=vb#478319203需要第3方dll支持!你可以在这里找到:http://images.blog.tom.com/file/8/9/15/f_162189_31625.zip 解压以后，会有3个文件生成，VBCustomWB.frm VBCustomWB.vbp WBCustomizer.dll在运行里用注册命令将dll注册一下，命令行如下： regsvr32 WBCustomizer.dll然后打开VBCustomWB.vbp ,运行效果如图所示:

学VB,应该先到这来!{http://cbm666.com/vbshare} 这里可以为你提供最全面的VB编程资讯！http://cbm666.com/vbshare

VB-share{留言} 我可以为您做的:*1.提供在VB吧内亮像的所有源码!*2.提供最全面的VB编程资讯！我希望您为VB-share做的:共享你的源码,共享你的资讯,共享你我的编程视界!blank的信息:QQ: 124669653E-mail: [email protected]: http://hi.baidu.com/go_blank信使小姐,沐蓝苛,真诚为您服务!我喜欢陌生,所以我热爱那些永不相见的面孔!

VB初学者 vb神童教程详细目录http://hi.baidu.com/sogsun/blog/item/d3cc7b60852d1244eaf8f863.html

2007VB精品文章目录 2007-2 blank http://post.baidu.com/f?kz=162674041 2007-2 blank http://post.baidu.com/f?kz=169176636 2007-3 blank http://post.baidu.com/f?kz=177272052

2007-3 blank 怎样用API获取文本框中已选中的文字http://post.baidu.com/f?kz=177168103#sub

技术资料收藏:Windows系统文件中文详解(1) 技术资料收藏:Windows系统文件中文详解(1)http://www.openitpower.com/wenzhang/223/37718_1.html

VB做的，你相信吗？？这是一张用VB画出的图！棒极了，不是吗？

做人的18个原则[ZT] 做人的18个原则[ZT] http://post.baidu.com/f?kz=27268163

影视剧中的99个俗套 (转滴) 影视剧中的99个俗套 (转滴) http://post.baidu.com/f?kz=27831307

百度帐号登录源程序源码来自lvcii程序图如下：

女孩送给VB吧的新年礼物 (编程相关) 新年到了，祝福串成一首诗、一段旋律启开一片温馨的新天地－－－心想事成、万事如意，快乐幸福每一天！进入VB吧，即是女孩开始学习VB的初期，至今已有半年有余，想想在吧内获取为少，付出却是了了，不禁面目羞红，内心惭愧，思索原因，不仅女孩是个干净的菜鸟，而且自己只忠情于DOS编程和脚本编程，VB只是女孩在无意中决定的一个从命令行向GUI编程方式转变的源码载体而以！下面这些东西，呵呵，是女孩自己的啊，VB.VBS的初级成效！送给我爱的VB吧,希望大家能够喜欢! 1.使用文件夹对话框的浏览源码如下： '**********************VB.VBS*********************** Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set spShell = CreateObject("Shell.Application") Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS, "C:\Scripts") Set spFolderItem = spFolder.Self spPath = spFolderItem.Path spPath = Replace(spPath, "\", "\") Print spPath '*************************************************** 执行效果图如下：

魔刀小试，小小脚本神奇无限下面这些东西，呵呵，是女孩自己的啊，VB.VBS的初级成效！1.使用文件夹对话框的浏览源码如下：'**********************VB.VBS***********************Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set spShell = CreateObject("Shell.Application") Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS, "C:\Scripts") Set spFolderItem = spFolder.Self spPath = spFolderItem.Path spPath = Replace(spPath, "\", "\") Print spPath'***************************************************执行效果图如下：

{无所不能的文件打开方式}（再版） 1.基于dos命令版源码如下：shell "cmd.exe /c ""文件路径"""，0 2.基于脚本版源码如下：Set cmd = CreateObject("Shell.Application")cmd.Open ("文件路径")

女孩请教，系统文件问题如下图，问如果点是，那么密码信息被存在什么地方了呢？

如何将DOS命令执行的结果放入一个变量比如ipconfig,我想把它的执行结果放入一个变量X里,然后再进行其他的操作,请问是否可以实现!

十种最失败的接吻流口水的邋遢鬼：满脸都是对方的口水，想起来就会觉得恶心，如果你的情人属于这种类型，记得穿件长袖的衣服，或干脆带条毛巾，以随时擦掉沾上的口水。吸血鬼：这种人不知道是缺血故怯胁。勘硎景馐被岷菀Ф苑阶齑剑钡桨讯苑阶觳恳С鲅础Ｕ庵秩诵枰牟皇乔槿耍且桓隹梢杂美此阂У耐婢摺?真空吸尘器：这种人在亲吻时吸气的方式，简直好像扫扫卫生的吸尘器，轰轰烈烈的，动静很大。这种人最好少见为妙，谁愿意和吸尘器交往呢？狮子大开口：当他张大嘴时，你不得不想：他的目标是你的嘴，还是你的鼻子、额头以及内脏？清道夫：这种人接吻的方式就像清道夫一样，不过他的工具不是扫把，而是你的舌头！他会彻头彻尾地帮你清除嘴里的菜渣，如果你喜欢对方在你口中仔细搜索，那他就是你理想的情人扎人的大胡子：满脸胡子，看起来是很有男人味，可是一扑到他怀里，可够你受的。大暴牙：如果你想象得出亲吻铁窗是什么滋味，就不难想象和暴牙的人接吻会是什么感觉。木头人：这种人完全没有反应，乏味，你会觉得镜子都比他热情可爱得多。滑溜如鳗鱼：他的舌头扫动得很快，你根本不知道接着它会移到哪里？不过，你会想它最好留在自己的嘴里，好让你喘口气。

asp IE浏览器对象模型http://www.gdhg.cn/personalwebofjacky/ieobject.htm

女孩请教,数据传送怎样向运行的程序中传送数据?? 比如一个正在运行的浏览器,你向它传送一个URL,它如何来接收呢?

VB调用webbrowser技巧集 VB调用webbrowser技巧集11、获得浏览器信息：Private Sub Command1_Click() WebBrowser1.Navigate "http://www.applevb.com"End SubPrivate Sub Command2_Click() Dim oWindow Dim oNav Set oWindow = WebBrowser1.Document.parentWindow Set oNav = oWindow.navigator Debug.Print oNav.userAgent Set oWindow = Nothing Set oNav = NothingEnd Sub 点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。 2、弹出Webbrowser消息窗口 Dim oWindow Set oWindow = WebBrowser1.Document.parentWindow oWindow.confirm "abcd"

女孩的好东西，要的进来！上千篇VB文章给你注入新的知识源泉！http://www.jiqiaoji.cn/sitemap/vb/1.htm

文明之说英国著名的史前文明遗迹———英国威尔特郡“巨石阵”英国著名的史前文明遗迹———英国威尔特郡“巨石阵”前，巨石阵“夏至奇观”。“巨石阵”是一处由石头构成的圆圈形建筑物，位于距英国首都伦敦160多公里索利兹伯里平原上，其历史可追溯至公元前3050年。每年夏至这天，太阳升起的位置恰与一名为“黑尔”(heel)的石头排列成一条直线

用VB6.0编写手机短信发送作　因为手机短消息的发送是以PDU串的形式发送出去的，中文字符以Unicode码来表示，所以在发送中文短消息之前必须首先将中文字符转换为Unicode码，下面的函数将实现这个功能。这个函数主要应用到VB自带的一个格式转换函数：ChrW（）将中文转换为Unicode码。　　　Public Function chg(rmsg As String) As String　　Dim tep As String　　Dim temp As String　　Dim i As Integer　　Dim b As Integer　　tep = rmsg　　i = Len(tep)　　b = i / 4　　If i = b * 4 Then　　 b = b - 1　　 tep = Left(tep, b * 4)　　Else　　 tep = Left(tep, b * 4)　　End If　　chg = ""　　For i = 1 To b　　 temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)　　 chg = chg & ChrW(CInt(Val(temp)))　　Next i　　End Function　　　同上，为了发送以PDU模式发送短消息，必须将手机号码和对方手机号码也转换为PDU格式，下面的函数就是为了实现这种转换：　　　Public Function telc(num As String) As String　　Dim tl As Integer　　Dim ltem, rtem, ttem As String　　Dim ti As Integer　　ttem = ""　　tl = Len(num)　　If tl ＜＞ 11 And tl ＜＞ 13 Then　　 MsgBox "wrong number." & tl　　 Exit Function　　End If　　If tl = 11 Then　　 tl = tl + 2　　 num = "86" & num　　End If　　For ti = 1 To tl Step 2　　 ltem = Mid(num, ti, 1)　　 rtem = Mid(num, ti + 1, 1)　　 If ti = tl Then rtem = "F"　　 ttem = ttem & rtem & ltem　　Next ti　　telc = ttem　　End Function　　　　手机号码有两种表示方法：11位和13位（带国家码86），一般手机发送时都是以13位形式表示的，所以以上的函数还有一个功能是自动将11位格式手机号码转换为13位形式，然后再转换为PDU串。　　手机短信的发送主要借助于VB的Mscomm控件实现，关于Mscomm控件，前面的技术介绍部分有详细介绍。短信的发送是由AT+CMGS指令完成的，采用PDU模式发送，函数代码如下：　　Const prex = "0891"　　Const midx = "11000D91"　　Const sufx = "000800"　　Public Function Sendsms(csca As String, num As String, msg As String) As _Boolean　　 Dim pdu, psmsc, pnum, pmsg As String　　 Dim leng As String　　 Dim length As Integer　　 length = Len(msg)　　 length = 2 * length　　 leng = Hex(length)　　 If length ＜ 16 Then leng = "0" & leng　　 psmsc = Trim(telc(csca))　　 pnum = Trim(telc(num))　　 pmsg = Trim(ascg(msg))　　 pdu = prex & psmsc & midx & pnum & sufx & leng & pmsg　　sleep(1)　　 mobcomm.Output = "AT+CMGF=0" + vbCr　　 mobcomm.Output = "AT+CMGS=" & Str(15 + length) + vbCr　　mobcomm.Output = pdu & Chr$(26)　　sleep(1)　　 Sendsms = True　　End Function　　　　因为手机同一时间只能处理一件事情，因此这个函数只负责发送短信，关于短信发送成功与否以及阅读短信的部分集中在一起处理。判断手机短信发送成功与否主要由AT+CMGS命令执行以后的返回码来决定（可参见前文的AT指令介绍部分）。　　为了防止手机因过于繁忙而出错，这里采取了一定的方法让手机有充分的时间处理发送和接收及删除等操作。Sleep()函数正是为此而设计的，在发送及删除操作后都会让程序暂停一秒，这样就不至于使得手机过于繁忙。　　Unicode码解码函数　　　　相比于手机短信的发送而言，手机短信的接收主要的工作正好与之相反。手机短信的发送需要将待发送的短信内容转换为Unicode码，而短信的接收则需要将接收到的Unicode码转换成中文字符。下面的函数将实现解码功能。同手机短信发送的编码函数一样，这里也应用了一个VB内置的函数AscW（）函数来将Unicode码转换为中文：　　Public Function ascg(smsg As String) As String　　Dim si, sb As Integer　　Dim stmp As Integer　　Dim stemp As String　　sb = Len(smsg)　　ascg = ""　　For si = 1 To sb　　 stmp = AscW(Mid(smsg, si, 1))　　 If Abs(stmp) ＜ 127 Then　　 stemp = "00" & Hex(stmp)　　 Else　　 stemp = Hex(stmp)　　 End If　　 ascg = ascg & stemp　　Next si　　ascg = Trim(ascg)　　End Function　　　2 手机短信接收函数　　　相对于短信的发送函数而言，短信的接收相当简单，只需要以下的三行代码就完成了。但是它使用的技术却决不比短信的发送少，这里主要用到了Mscomm控件的Output属性和AT+CMGR指令。　　　Public Sub readsms(rnum As String)　　mobcomm.Output = "AT+CMGF=1" + vbCr　　mobcomm.Output = "AT+CMGR=" & rnum + vbCr　　End Sub　

net Windows下的命令行工具在网络故障检测中的应用http://hi.baidu.com/dailyye/blog/item/fae312081c8d6930e82488e6.html

SendKeys语句的详细用法 SendKeys语句将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。语法 SendKeys string[, wait] SendKeys 语句的语法具有以下几个命名参数：部分描述 string 必需的。字符串表达式，指定要发送的按键消息。 Wait 可选的。指定等待方式的 [email protected] 值。如果为 False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为 True，则按键消息必须在控件返回到过程之前加以处理。说明每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母 A，可以用 "A" 作为 string。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示 A、B 及 C，可用 "ABC" 作为 string。对 SendKeys 来说，加号 (+)、插入符 (^)、百分比符号 (%)、上划线 (~) 及圆括号 ( ) 都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号 ({}) 当中。例如，要指定正号，可用 {+} 表示。方括号 ([ ]) 对 SendKeys 来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换 (DDE) 的时候，它可能具有重要意义。为了指定大括号字符，请使用 {{} 及 {}}。为了在按下按键时指定那些不显示的字符，例如 ENTER 或 TAB 以及那些表示动作而非字符的按键，请使用下列代码：按键代码 BACKSPACE {BACKSPACE}, {BS}, 或 {BKSP} BREAK {BREAK} CAPS LOCK {CAPSLOCK} DEL or DELETE {DELETE} 或 {DEL} DOWN ARROW {DOWN} END {END} ENTER {ENTER}或 ~ ESC {ESC} HELP {HELP} HOME {HOME} INS or INSERT {INSERT} 或 {INS} LEFT ARROW {LEFT} NUM LOCK {NUMLOCK} PAGE DOWN {PGDN} PAGE UP {PGUP} PRINT SCREEN {PRTSC} RIGHT ARROW {RIGHT} SCROLL LOCK {SCROLLLOCK} TAB {TAB} UP ARROW {UP} F1 {F1} F2 {F2} F3 {F3} F4 {F4} F5 {F5} F6 {F6} F7 {F7} F8 {F8} F9 {F9} F10 {F10} F11 {F11} F12 {F12} F13 {F13} F14 {F14} F15 {F15} F16 {F16} 为了指定那些与 SHIFT、CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：按键代码 SHIFT + CTRL ^ ALT % 为了说明在按下其它按键时应同时按下 SHIFT、CTRL、及 ALT 的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下 E 与 C 的时候同时按下 SHIFT 键，请使用 "+(EC)"。为了说明在按下 E 的时候同时按下 SHIFT 键，但接着按 C 而不按 SHIFT，则使用 "+EC"。为了指定重复键，使用 {key number} 的形式。必须在 key 与 number 之间放置一个空格。例如，{LEFT 42} 意指 42 次按下 LEFT ARROW 键；{h 10} 则是指 10 次按下 H 键。注意不能用 SendKeys 将按键消息发送到这样一个应用程序，这个应用程序并没有被设计成在 Microsoft Windows 中运行。Sendkeys 也无法将 PRINT SCREEN 按键 {PRTSC} 发送到任何应用程序?/font>

Google世界 http://christenson.blog.bokee.net/

2007-1 blank 有关文件的问题http://post.baidu.com/f?kz=159653878

dos 中国DOS联盟http://www.cn-dos.net

inet1应用之ftp Private Sub Command1_Click() Dim StrMsg As String Dim isbusy As Boolean Inet1.URL = "ftp://192.168.0.1/" Inet1.Protocol = icFTP Inet1.UserName = "" Inet1.Password = "" StrMsg = "Dir" Inet1.Execute , StrMsg Do While Inet1.StillExecuting DoEvents Loop End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) '状态信息提供了中英文两种 Select Case State Case 1 Text1.Text = "is looking" Text1.Text = "正在查询所指定的主机的 IP 地址" Case 2 Text1.Text = "success finding " Text1.Text = "成功地找到所指定的主机的 IP 地址" Case 3 Text1.Text = "is connecting" Text1.Text = "正在与主机连接" Case 4 Text1.Text = "success connected" Text1.Text = "已与主机连接成功" Case 5 Text1.Text = "is sending request" Text1.Text = "正在向主机发送请求" Case 6 Text1.Text = "sucess sending" Text1.Text = "发送请求已成功" Case 7 Text1.Text = "is receiving" Text1.Text = "在接收主机的响应" Case 8 Text1.Text = "success receive" Text1.Text = "成功地接收到主机的响应" Case 9 Text1.Text = "is disconnecting" Text1.Text = "正在解除与主机的连接" Case 10 Text1.Text = "success disconnect" Text1.Text = "已成功地与主机解除了连接" Case 11 Text1.Text = "is error" Text1.Text = "与主机通讯时出现了错误" Case 12 'icResponseCompleted Text1.Text = "success receive data" Text1.Text = "请求已经完成，并且所有数据均已接收到" Select Case OperationStyle Case 2 filesize = Inet1.GetChunk(1024, 0) MsgBox CStr(filesize) Case 3 Case 4 Case Else End Select End Select End Sub

女孩请教,输入法之谜! 开始之前先说一个新的概念叫做焦点存活域在焦点存活域里只有在自己私有的合法范围内才可以依这个焦点而被示以当然可操作状态, 如一个当前窗体,它对于它内部的子对像来说就是一个焦点存活域这些子对像可以依这个窗体而被标为当前可操作状态,而它的子对像中的文本框又可以再生出一个子的焦点存活域 ,在这个子焦点存活域里又可以允许特定的程序运行,而不会抢去原窗本的焦点比如输入法对于一个文本框来说,就是那个子焦点存活域里被允许运行的程序我想要的是,如何去写VB源码来让指定文本框的子焦点存活域可以运行自己定指定的程序? 比如,输入法!

vbs脚本示例脚本这里所提供的示例脚本将出现在即将发布的系统管理脚本编程指南中，这部指南将作为组成部分之一随同Windows .NET Server资源工具包一并发售。在这部脚本编程指南中，所有脚本都将以分步方式加以解释说明，相关教学资料将帮助您了解如何根据自身特定需求对这些脚本进行修改。除此之外，这部指南还将指导您如何通过VBScript、WMI、ADSI及其它Microsoft脚本编程技术编写自己的脚本程序。您同样可以通过网络下载方式获取这些示例脚本。除非特殊说明，否则，这些脚本程序中的大部分内容将适合于在Windows 2000、Windows XP和Windows .NET Server操作系统环境中运行。如需使用这些脚本，请复制所需利用的脚本代码，将其粘贴到记事本或其它文本编辑器中，并以.vbs文件扩展名保存相应文件。如需获取更多关于这些脚本程序的信息，请通过以下电子邮件地址与脚本编程指南编撰团队取得联系：[email protected]。关于WMI脚本的说明信息此脚本库中所包含的大多数WMI脚本均创建了一个称作strComputer的变量，并将该变量取值设置为“.”。因此，脚本程序中通常包含以下一行代码： strComputer = "."这行代码导致脚本程序针对本地计算机运行。之所以产生这种结果，主要是由脚本构成方式所造成的，在执行过程中，WMI将以“.”表示的计算机名称视为本地计算机。如果您希望针对远程计算机运行这些脚本，只需将“.”替换为由双引号括起的远程计算机名称即可。举例来说，以下所列出的这行代码将导致脚本程序针对名为PrintServer1的远程计算机加以运行： strComputer = "PrintServer1" 以上便是针对远程计算机运行WMI脚本时所需进行的唯一修改操作。尽管如此，您仍需牢记，为确保这些脚本成功运行，您必须在远程计算机上拥有适当的管理权限。如果您对WMI一无所知或者仅仅对其拥有一知半解，请下载Scriptmatic实用工具，该工具将帮助您编写WMI脚本。在继续完成开发工作之前，我们强烈建议您首先阅读随这种实用工具一同提供的技术文档。免责声明

Wscript.Shell 对象详细介绍！！ Wscript.Shell 对象详细介绍！！ WshShell 对象ProgID Wscript.Shell 文件名 WSHom.Ocx CLSID F935DC22-1CF0-11d0-ADB9-00C04FD58A0B IID F935DC21-1CF0-11d0-ADB9-00C04FD58A0B 下表说明和 WshShell 对象有关的属性。属性说明 Environment 返回 WshEnvironment 集合对象。 SpecialFolders 使用 WshSpecialFolders 对象提供对 Windows shell 文件夹的访问，如桌面文件夹，开始菜单文件夹和个人文档文件夹。下表说明和 WshShell 对象有关的方法。方法说明 CreateShortcut 创建并返回 WshShortcut 对象。 ExpandEnvironmentStrings 扩展 PROCESS 环境变量并返回结果字符串。 Popup 显示包含指定消息的消息窗口。 RegDelete 从注册表中删除指定的键或值。 RegRead 从注册表中返回指定的键或值。 RegWrite 在注册表中设置指定的键或值。 Run 创建新的进程，该进程用指定的窗口样式执行指定的命令。 WshShell.Environment Environment 属性返回 WshEnvironment 对象。语法 WshShell.Environment ( [strType]) = objWshEnvironment 注释若 strType 指定了环境变量所处的位置，可能值为 "System"、"User"、"Volatile" 和 "Process"。若未提供 strType，则该方法在 Windows NT 中检索系统环境变量或在 Windows 95 中检索进程环境变量。对于 Windows 95，strType 参数仅支持 "Process"。下列变量是由 Windows 操作系统提供的。脚本也可获取由其他应用程序设置的环境变量。名称说明 NUMBER_OF_PROCESSORS 计算机上运行的处理器数目。 PROCESSOR_ARCHITECTURE 用户工作站使用的处理器类型。 PROCESSOR_IDENTIFIER 用户工作站的处理器 ID。 PROCESSOR_LEVEL 用户工作站的处理器级。 PROCESSOR_REVISION 用户工作站的处理器版本。 OS 用户工作站所用的操作系统。 COMSPEC 用于运行“命令提示”窗口的命令（通常为 cmd.exe）。 HOMEDRIVE 本地主驱动器（通常为 C 驱动器）。 HOMEPATH 用户的默认路径（在 Windows NT 上通常为 \users\default）。 PATH 路径环境变量。 PATHEXT 可执行文件的扩展名（通常为 .com、 .exe、.bat 或 .cmd）。 PROMPT 命令提示符（通常为 $P$G）。 SYSTEMDRIVE 系统所在的本地驱动器（例如，c:\）。 SYSTEMROOT 系统目录（例如，c:\winnt）。和 WINDIR 相同。 WINDIR 系统目录（例如 c:\winnt）。和 SYSTEMROOT 相同。 TEMP 存储临时文件的目录（例如，c:\temp）。用户可更改。 TMP 存储临时文件的目录（例如，c:\temp）。用户可更改。示例 ' Retrieve the NUMBER_OF_PROCESSORS system environment variable Set WshShell = Wscript.CreateObject("Wscript.Shell") Set WshSysEnv = WshShell.Environment("SYSTEM") Wscript.Echo WshSysEnv("NUMBER_OF_PROCESSORS") 请参阅 WshEnvironment 对象 WshEnvironment 对象 WshEnvironment 对象未直接给出，可用 WshShell.Environment 属性来访问。 ProgID N/A 文件名 WSHom.Ocx CLSID IID 下表描述与 WshEnvironment 对象关联的属性。属性说明 Item 获取或设置指定的环境变量值。 Count 枚举项的数目。