随风散忆的个人资料

MSSQL生成整个数据库的SQL脚本的工具 scptxfr.exe的路径要正确declare @cMd varchar(1000)set @cmd = 'master.dbo.xp_cmdshell ' + '''c:\"Microsoft ' +'SQL Server"' +'\MSSQL\Upgrade\scptxfr.exe ' +' /s YourServerName /p YourSAPassword /I /d YourDBName /f ' +'c:\YourDBName.sql'''exec (@cmd) 工具参数说明：SCPTXFR /s /d {[/I] | [/P ]}{[/F ] | [/f <single script file>]}/q /r /O /T /A /E /C <CodePage> /N /X /H /G /Y /?/s - Indicates the source server to connect to./d - Indicates the source database to script./I - Use integrated security./P - Password to use for 'sa'. Note that login ID is always 'sa'.If /P not used or if a password does not follow the flag,a null password is used. Not compatible with /I./F - The directory into which the script files should be generated.This means one file is generated for each category of objects./f - The single file in which all script is to be saved.Not compatible with /F./q - Use quoted identifiers in the generated scripts./r - Include drop statements for the objects in the script./O - Generate OEM script files. Cannot be used with /A or /T.This is the default behavior./T - Generate UNICODE script files. Cannot be used with /A or /O./A - Generate ANSI script files. Cannot be used with /T or /O./? - Command line help./E - Stop scripting when error occurs.Default behavior is to log the error, and continue./C - Indicate the CodePage which overrides the server CodePage./N - Generate ANSI PADDING./X - Script SPs and XPs to separate files./H - Generate script files without header (default: with header)./G - Use the specified server name as the prefix for the generated output files(to handle dashes in server name)./Y - Generate script for Extended Properties (valid for 8.x server only).

[资源]Adobe Dreamweaver CS3 汉化特别版┊建立Web站点和应用程序 http://www.cncrk.com/downinfo/6664.html

[操作系统]Windows XP正版验证补丁 V1.0┊可支持IE7.0/WMP11.0的安 http://greendown.cn/soft/4944.html

[XML]XMLSpy 2005用户手册---用户手册 http://www.yzcode.com/Article/xmlstu/200602/Article_872.html

打造自己的个性印章 www.eoshow.com

[VB]写给初学者[字符串处理函数] 字符串处理函数： mid(字符串，从第几个开始，长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3) 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2) ByVal 从规定的位置开始查找，返回字符串2在字符串1中的位置例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到 InStrRev(字符串1,字符串2,从第几个开始) ByVal 从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到。0 表示未找到 left(字符串,长度) ByVal 从[字符串]的左边开始返回[长度]个字符例如 Left("小欣无敌,3) 则返回 "小欣无" right(字符串,长度) ByVal 从[字符串]的右边开始返回[长度]个字符例如 Right("小欣无敌",3) 则返回 "欣无敌" ucase(字符串) ByVal 返回[字符串]的大写形式，只对英文字符有效例如 ucase("xiaoXINwuDi") 则返回 "XIAOXINWUDI" lcase(字符串) ByVal 返回[字符串]的小写形式，只对英文字符有效例如 lcase("xiaoXINwuDi") 则返回 "xiaoxinwudi" asc(字符) Byval返回[字符]的ascii编码，若有多个字符，则只返回首字符的ascii编码,和Chr()函数是一个可逆的过程例如 asc("小") 则返回 -12127 ; asc("小欣无敌") 也返回 -12127 chr(ASCii编码) Byval 返回[Ascii]编码所代表的字符，和Chr()函数是一个可逆的过程例如 chr(-12127) 则返回 "小" ；chr(asc("小")) 则返回"小"(这里是为了说明asc和chr的可逆性，例用此特性可以加密文本) trim(字符串) Byval 返回去掉了前、后之后的[字符串] 例如 trim(" 小欣无敌 ") 则返回 "小欣无敌" ，中间的空格不受任何影响 string(个数,字符) Byval 返回[个数]个[字符] 例如 string(3,"小") 则返回 "小小小" , 而 string(3,"小欣无敌") 也返回 "小"，只有首字符才有效 space(个数) Byval 返回[个数]个空格例如 space(5) 则返回 " " strconv(字符串,转换的类型) Byval 将字符串转成指定的类型。常用的类型只有两个,vbwide 半角转成全角,vbNarrow 全角转成半角例如 strconv("xiao",vbwide) 则返回 "ＸＩＡＯ",而strconv("ＸＩＡＯ",vbnarrow) 则返回 "XIAO" '备注 vbwide = 4 ,vbnarrow = 8 len(字符串) Byval 返回[字符串]的长度例如 len("小欣无敌") 则返回 4

[外挂]关于用VB制作游戏外挂(只要绿色), http://post.baidu.com/f?kz=99198485

[VB]IP地址合法性检查 Function IP_Nummer(ip As String) As String Dim nrs() As String If Len(Replace(ip, ".", "")) = (Len(ip) - 3) Then nrs = Split(ip, ".") If nrs(0) >= 256 Or nrs(1) >= 256 Or nrs(2) >= 256 Or nrs(3) >= 256 Then MsgBox "错误的IP地址!", vbCritical + vbOKOnly, "错误" Exit Function End If a = nrs(0) * 256 a = a * 256 a = a * 256 b = nrs(1) * 256 b = b * 256 c = nrs(2) * 256 d = nrs(3) nummer = (a) + (b) + (c) + (d) IP_Nummer = nummer Else MsgBox "错误的IP地址!", vbCritical + vbOKOnly, "错误" End IfEnd Function

[VB]VB制作无敌木马 1.木马的功能<1>有间隔监控屏幕：参考http://www.play78.com/bbs/dispbbs.asp?boardID=14&ID=658&page=1文章，拦截到的图片保存为BMP格式，文件名称为 “DATE_TIME.dll” 保存到System32/WinHosts/（具有迷惑性，至于如何得到system32或system路径请参考http://www.openitpower.com/wenzhang/117/11946_1.html文章<2>得到按键信息：参考http://topic.csdn.net/t/20020514/22/722560.html文章，隔10分钟保存一次，为txt格式（只要你看得懂），文件名称“KB_DATE_TIME.oca”<3>注意：监控<1>是有间隔 <2>是实时<4>上面的东西西自动上传到你申请的免费FTP里面哈哈你就等着吧！其他让你能够控制的功能自己添加吧比如控制、修改注册表建议使用反链接技术就是你将控制指令放到FTp里面然后木马每隔一段时间访问一下FTP并获得指令并执行哈哈这样不容易被发现因为是访问INTERNET而不是别的东西访问你！这样有效的增加了掩护2.隐藏木马<1>要有一个守护进程并且互相守护拷贝木马程序和守护文件到system32下改名，并将副本改后缀为dll 这样使用unlocker之类的东西可以从这里恢复并重新保护具体这里不详细说明看你怎么造化了 <2>开机启动不要放到run里面给你一个更好的地方这里运行连安全模式都会加载！具体注册表：（读写注册表参考源代码区vb reg）HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\ shell键值看到了吧，里面是“explorer.exe” 如果有别的很有可能你中病毒了我们也利用这一点注意：要修改这个shell键值为原键值＋空格＋你的程序路径（带英文双引号）嘿嘿！这样～<3>要设置一个自杀东西否则小心你自己的电脑哦！最好远程控制自杀，要自杀就先修改一个注册表然后守护进程看到了有这个键值就unload me 并end 然后再木马本生关闭然后安全删除（参考“安全删除自身”文章）<4>不能显示应用程序即：me.visiable=false ，me.showintaskbar=true（这个最好在属性中设置）然后unload里面加入判断是否为自己代码调用关闭（参考http://www.play78.com/bbs/dispbbs.asp?boardID=8&ID=1359&page=6 即：unloadmode=1则关闭否则就shell 自己路径）这样能一定程度防治任务管理器基本关闭如果强制关闭也有守护进程！

[VB]VB从零开始编外挂(完整实践版) https://www.mydatabus.com/faux_proc/download_proc.php?fn=VB%E4%BB%8E%E9%9B%B6%E5%BC%80%E5%A7%8B%E7%BC%96%E5%A4%96%E6%8C%82%E5%AE%8C%E6%95%B4%E5%AE%9E%E8%B7%B5%E7%89%88%20.chm&f=Files/

[VB]用VisualBasic创建多线程应用程序原文地址: http://book.2fw.cn/Article/chengxu/VB/200608/40412.html问题背景：　　有时候我们做程序时有这样的需求：有一个需要运行时间很长的循环，那么程序只有等待循环运行结束后才执行别的程序代码，这样机器一直处于循环之中，而不能响应别的事情，对CPU资源来说是一种浪费，那么可不可以既让循环执行，又可以执行程序另外的一部分代码呢？答案是可以的，那就要用到多线程了。相关知识：　　进程：是指程序在一个数据集合上运行的过程，是操作系统进行资源分配和调度运行的一个独立单位，简单来说进程就是程序的一次执行。　　进程的两个基本属性：　　 1.进程是一个可拥有资源的独立单位；　　 2. 进程同时又是一个可以独立调度和分配的基本单位。　　操作系统中引入进程的目的是为了使多个程序并发执行，以改善资源利用率及提高系统的吞吐量。　　线程：线是进程中的一个实体，是被系统独立调度和分配的基本单位。线程自己基本上不拥有系统资源，只拥有一些在运行中必不可少的资源，但它可与同属一个进程的其他线程共享进程所拥有的全部资源。同一个进程中的多个线程之间可以并发执行。问题实现：　　 VB可不可以创建多线程呢？答案：VB本身不可以，但用API函数VB可以实现。　　在VB中创建线程用到以下几个API函数： '创建线程API '此API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用： '因为函数入口地址是由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址 ' 参数dwStackSize为应用程序堆栈大小，lpStartAddress为函数入口地址 Private Declare Function CreateThread Lib 'kernel32' (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long '终止线程API Private Declare Function TerminateThread Lib 'kernel32' (ByVal hThread As Long, ByVal dwExitCode As Long) As Long '激活线程API,参数hThread为CreateThread创建的线程句柄 Private Declare Function ResumeThread Lib 'kernel32' (ByVal hThread As Long) As Long '挂起线程API Private Declare Function SuspendThread Lib 'kernel32' (ByVal hThread As Long) As Long 　　了解完上面的API函数后请看下面的实例：　　实例效果：此实例实现三个图片框的背景色一起变色。　　实例的窗体布局见图：　　程序的工程窗口：源代码如下　　窗体中的代码： Option Explicit '开始 Private Sub Command1_Click() 　 On Error Resume Next 　 With myThreadleft 　　 .Initialize AddressOf Fillleft '传递过程地址给线程　　 .ThreadEnabled = True 　 End With 　 With myThreadright 　　 .Initialize AddressOf Fillright 　　 .ThreadEnabled = True 　 End With 　 With myThreadbottom 　　 .Initialize AddressOf Fillbottom 　　 .ThreadEnabled = True 　 End With 　 MsgBox '多线程正在运行...，看看图片框控件的变色效果！', 64, '信息' 　 '终止线程运行　 Set myThreadleft = Nothing 　 Set myThreadright = Nothing 　 Set myThreadbottom = Nothing End Sub '结束 Private Sub Command2_Click() 　 Unload Me End Sub 模块中的代码： Option Explicit '时间计数API Private Declare Function GetTickCount Lib 'kernel32' () As Long '声明cls_thread类的对象变量 Public myThreadleft As New cls_thread, myThreadright As New cls_thread, myThreadbottom As New cls_thread

[VB]最精简的目录浏览对话框[支持多个扩展名] http://tiebacommit.baidu.com/f?kz=198132645

[资源]我的相关资源我的博客 http://hi.baidu.com/cdwm/我的藏宝室http://www.chucangshi.com/?cdwm#我的聚宝盆http://cdws.gbaopan.com/

[JAVA]java工具共享资源 http://www.sdaudi.cn/sdaudi/java.htm

[VB]在添加部件对话框中，所有的中文显示乱码的解决方法 VB乱码问题是由于安装了VB以后再安装OFFICE组件或IE5引起的，解决办法有二：一是如果需要OFFICE的话，先安装OFFICE，再安装VB；第二个办法是安装VB SP3，而不是SP1 FOR WIN2000。SP3可以下载，但太大，没必要，市面上许多光盘中都有。这两种办法我都试过，均可以，后一种办法还可以解决其他一些问题

[VB]怎样能使主板喇叭鸣叫 http://post.baidu.com/f?kz=197833746

[VB]GUID生成算法 - 全球唯一码 'returns: guid if successful; blank string otherwise.'unlike the guids in the registry, this function returns guid'without "-" characters. see comments for how to modify if you'want the dash.public function guid() as string dim lretval as long dim udtguid as guid dim spartone as string dim sparttwo as string dim spartthree as string dim spartfour as string dim idatalen as integer dim istrlen as integer dim ictr as integer dim sans as string on error goto errorhandler sans = "" lretval = cocreateguid(udtguid) if lretval = 0 then 'first 8 chars spartone = hex$(udtguid.partone) istrlen = len(spartone) idatalen = len(udtguid.partone) spartone = string((idatalen * 2) - istrlen, "0") _ & trim$(spartone) 'next 4 chars sparttwo = hex$(udtguid.parttwo) istrlen = len(sparttwo) idatalen = len(udtguid.parttwo) sparttwo = string((idatalen * 2) - istrlen, "0") _ & trim$(sparttwo) 'next 4 chars spartthree = hex$(udtguid.partthree) istrlen = len(spartthree) idatalen = len(udtguid.partthree) spartthree = string((idatalen * 2) - istrlen, "0") _ & trim$(spartthree) 'next 2 bytes (4 hex digits) 'final 16 chars for ictr = 0 to 7 spartfour = spartfour & _ format$(hex$(udtguid.partfour(ictr)), "00") next 'to create guid with "-", change line below to: 'sans = spartone & "-" & sparttwo & "-" & spartthree _ '& "-" & spartfour sans = spartone & sparttwo & spartthree & spartfour end if guid = sansexit functionerrorhandler:'return a blank string if there's an errorexit functionend function

[VB]wmp.dll控件常用属性 http://post.baidu.com/f?kz=146128768

[VB]【LITTLECZB 的 →●彩虹色●←渐变】 http://post.baidu.com/f?kz=188032258

[VB]【CBM666 的随机数小考验】 http://post.baidu.com/f?kz=200456321

[VB]程序结束时删除自身 Private Sub Form_UnLoad() Kill App.EXEName & ".exe" End Sub'只适用于程序存在可擦除的地方，像在光盘上的话就时效了。

[VB]获取主机名 Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetPcName() As String Dim compname As String, retval As Long compname = Space(255) retval = GetComputerName(compname, 255) compname = Left(compname, InStr(compname, vbNullChar) - 1) GetPcName = compname End Function

[VB]用vb实现DES加解密算法(三)--解密 http://www.ninesky.net/new/bcwd/VB/22401.html

[VB]获取本机所有的IP地址（外网、内网） Option Explicit Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long Const Max_IP = 5 Type IPINFO dwAddr As Long dwIndex As Long dwMask As Long dwBCastAddr As Long dwReasmSize As Long UnUsed1 As Integer UnUsed2 As Integer End Type Type MIB_IPADDRTABLE dEntrys As Long mIPInfo(Max_IP) As IPINFO End Type Type IP_Array mBuffer As MIB_IPADDRTABLE BufferLen As Long End Type Sub Main() Start End Sub Public Function ConvertAddressToString(longAddr As Long) As String Dim MyByte(3) As Byte Dim Cnt As Long CopyMemory MyByte(0), longAddr, 4 For Cnt = 0 To 3 ConvertAddressToString = ConvertAddressToString + CStr(MyByte(Cnt)) + "." Next Cnt ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1) End Function Public Sub Start() Dim Ret As Long, Tel As Long Dim bBytes() As Byte Dim Listing As MIB_IPADDRTABLE On Error GoTo End1 GetIpAddrTable ByVal 0&, Ret, True If Ret <= 0 Then Exit Sub ReDim bBytes(0 To Ret - 1) As Byte GetIpAddrTable bBytes(0), Ret, False CopyMemory Listing.dEntrys, bBytes(0), 4 MsgBox "找到 " & Listing.dEntrys & " 个IP地址!", 0, "提示" For Tel = 0 To Listing.dEntrys - 1 CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel)) '拷贝整个结构到Listing MsgBox "IP地址:" & ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr), 0, "提示" Next End End1: MsgBox "出错！", 0, "提示" End End Sub

[VB]TreeView自动选中下级 Sub CheckNodes(tv As TreeView, oNode As Node, Optional fChecked As Boolean = False, Optional lLevel As Long = 0) '打上勾 oNode.Checked = fChecked '有孩子的先抱孩子 If Not oNode.Child Is Nothing Then CheckNodes tv, oNode.Child, fChecked, lLevel + 1 End If '有兄弟的再抱兄弟 If (Not oNode.Next Is Nothing) And lLevel > 0 Then CheckNodes tv, oNode.Next, fChecked, lLevel End If End Sub Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node) Call CheckNodes(TreeView1, Node, Node.Checked) End Sub

蜘蛛侠3在线收看 http://99dy8.com/Film/Film1277.html

MOTO MPT4.4 http://www.apihook.net/software/mpt4.4.rar

[漏洞]利用百度知道来刷空间人气信不信由你，无可不是开玩笑的。http://hi.baidu.com/cdwm/blog/item/ac3bdf543b4c0b59d1090678.html

[QQ]免费领取QQ秀的教程[视频教程] 这是真的，也为空间拉点人气。http://hi.baidu.com/cdwm

求一个控件，大家帮忙找找类似于下面的这个工具条控件可以分组和qq的差不多有的请发到我邮箱谢谢 [email protected]

用real控件打造的一款MP3播放器，预览版。用real控件打造的一款MP3播放器，含动态歌词，目前代码善未完成，完成后将开放源代码。请大家关注：http://hi.baidu.com/cdwm

小老爷们那点事儿(搞笑漫画)〈一〉小老爷们那点事儿(搞笑漫画)〈一〉放松一下,来点轻松愉快的, .对了,这组漫画不是很色哦,但是本站女生以及大中专在校学生就不要看了 . 空间：http://hi.baidu.com/cdwm

建议去掉空间的文章字数有限制同意的来顶

另起一贴原来的太乱了《QQ管理工具》下载地址：http://www.chucangshi.com/??278

发一款QQ管理工具下载地址：http://www.chucangshi.com/ContentPane.aspx?down=ok&filename=vb_dwqq.rar&filepath=cdwm%2f%d3%ce%cf%b7%cf%e0%b9%d8%2fvb_dwqq.rar&GUID=304FD2565A96E27D

在存储过程中如何获取动态sql的返回值如： declare @_iTMP numeric declare @_sSQL varchar(50) set @_sSQL = 'select sum(num) from table1' 怎么把保存在@_sSQL的语句执行并把结果赋值给@_sTMP 谢谢！

求助：在存储过程中执行动态的SQL语句并确的返回值如：declare @_iTMP numericdeclare @_sSQL varchar(50)set @_sSQL = 'select sum(num) from table1' 怎么把保存在@_sSQL的语句执行并把结果赋值给@_sTMP谢谢！

求一个节点带小框可以打勾的treeview控件求一个节点带小框可以打勾的treeview控件有的发到[email protected] 谢谢

2006下半年程序员考试报名的时间在网上找了半天也没看到，有哪位兄弟知道的。还有听说没有中程考试了，消息确切吗？

关于数据库大家帮我看看~谢拉由于没学过数据库看不懂以下的代码能帮我加上注释马最好能详细点的！Function GetPassword(username As String, Password As String) As Boolean Dim dbsUser As Database Dim rstEmployees As Recordset Dim SqlStr As String Set dbsUser = OpenDatabase("H:\程序设计\data\db.mdb") SqlStr = "select userpassword from user where username=" & username & "" Set rstEmployees = dbsUser.OpenRecordset(SqlStr, dbOpenForwardOnly) GetPassword = False If rstEmployees.RecordCount > 0 Then If Password = rstEmployees.Fields(0).Value Then GetPassword = True End If End If rstEmployees.Close dbsUser.CloseEnd Function

有什么控件可以在text中加图片就像QQ 聊天窗口一样可以加入表情图片的文本控件

请教用vb加密和解密文本请教用vb加密和解密文本那位高手指点