等　级：新手上路
帖　子：1079
还是说说吧．
你在窗体的load事件中执行了ＳＱＬ语句，这个时候txtUserName和txtPassword都是空的，ＲＳ就是空的．
然后cmdOK的Click事件中,你又是这样判断的;&&& If rs.RecordCount & 0 Then
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&Me.Hide
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&Form1.Show
所以不管你写与不写，只要按一下OK键就能登录．
思路乱了．．．
我看青山多妩媚料青山看我应如是
等　级：新手上路
帖　子：53
不好意思,又是你,上回就是你帮我的忙的吧!我是个菜鸟,刚开始学VB的,谢谢你耐心的回答,我不知道不能在FORMLOAD下写,好的,我再试试吧!谢谢你!
版权所有，并保留所有权利。
Powered by , Processed in 0.022307 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved&&问题点数：0&&回复次数：4&&&
VB制作对软件安装的加密程序（求助）
有没有人会这个：（大四找工作..一家公司要做这个题目）
用VB制作对软件安装的加密程序，一台机只许一个帐号。
vb学过都完了
搜索更多相关主题的帖子:
等　级：新手上路
帖　子：187
是用VB制作安装程序
还是VB开发出来的程序需要加密？
天下风云出我,辈一入江湖岁月催.皇途霸业谈笑中,不盛人生
等　级：新手上路
应该是一个加密程序（对软件安装）
等　级：新手上路
帖　子：187
针对安装程序进行加密，用VB&&没这方面的思路。完全门外。而且我相信“难道有人能搞出来？”
嵌套汇编？
天下风云出我,辈一入江湖岁月催.皇途霸业谈笑中,不盛人生
等　级：新手上路
这是我找的,希望对你有用&
VB编写登录程序
我们都知道，在进入Windows操作系统时会出现一个登录对话框，要求用户输入密码后才能进入Windows。我们用VB也可以编写这样的登录窗口，其具体方法如下：
　　界面设计：
　　打开“VB6.0”，出现“新建工程”对话框，选择“标准EXE”单击“打开”即可新建一个工程。新建一个工程后，VB自动生成了一个窗体，其默认的名称是Form1，且显示的标题也是Form1，显然与我们要编写的程序不符。我们可以更改这些设置，方法是：点击Form1窗体，在右边的属性窗口中（如图1）的“名称”后输入“Denglu”（在后面讲的Denglu就是指的这个窗体），在“Caption”后输入“登录窗口”。窗体设置好后，我们便可以将控件放置到这个窗体中去了。
　　“登录窗口”中主要用到的是TextBox(文本框)控件，该控件主要是用于接收用户输入的文字并显示出来。在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。另外，我们还将用到Label（标签）控件及CommandButton（命令按钮）控件。Label控件用来显示“用户名”及“密码”标题；CommandButton控件用来设计“确定”及“取消”按钮。下面我们将这些控件放置到窗体中：在工具箱中选择“Label”控件（如图2），在窗体中拖动鼠标直到一定的大小，然后在属性窗口中的“Caption”属性后为输入“用户名”，然后在其下方再拖动一个Label控件，将Caption的值改为“密码：”；在工具箱中选择“TextBox”控件（如图3），在“用户名”后拖动一个TextBox控件，用同样的方法在“密码：”后拖动一个TextBox控件，然后在“属性窗口”中将Text的值改为空（即删除默认的Text1），为了不显示出用户输入的密码，我们将第二个TextBox控件的PasswordChar属性设置为＊（如图5），这样在用户输入密码时显示的就是＊了；在工具箱中选择“CommandButton”控件（如图4），将其拖动到窗体的下方（一共两个），分别设置其Caption属性为“确定”和“取消”。调整好这些控件的位置（如图6）后即可完成界面的设计。
　　程序代码：
　　该程序的主要目的是要判断输入的用户名是否合法，所以我们首先编写判断用户名的程序代码。双击“确定”按钮，添加如下的程序代码：（黑体部分为系统自动生成的代码，楷体为注释）
　　Private Sub Command1_Click()
　　′判断是否输入了用户名
　　If Text1.Text=″″ Then　′如果Text1为空，即没有输入用户
　　　MsgBox ″请输入用户名！″,vbOKOnly＋vbCritical,″错误″
　　　Exit Sub　′退出这个过程
　　Else　′如果输入了用户名
　　　If Text1.Text=″软件世界″ And Text2.Text=″12345″ Then　′如果输入的用户名是″软件世界″且密码为″12345″
　　　　MsgBox ″你是合法用户，欢迎进入！″,vbOKOnly＋vbInformation,″欢迎进入″
　　　Else　′如果不是″软件世界″或密码不是″12345″
　　　　MsgBox ″用户名或密码错误！″,vbOKOnly＋vbCritical,″错误″
　　　　Text1.Text=″″
　　　　Text2.Text=″″　′清空Text1及Text2控件中的文本内容，让用户重新输入
　　　End If
　　End If
　　End Sub
　　在这一段代码中，我们使用了If…Then…Else…End If。这是一个条件判断语句，If Text1.Text=″″ Then这句代码则是判断Text1是否为空，如果为空，这个条件就成立，则执行Then后的语句，如果Text1不为空，则这个条件不成立，程序将会跳到Else处，执行Else后的语句。
　　程序测试：
　　现在我们可以单击“F5”键来运行这个程序，看看其运行效果。直接单击“确定”按钮，将会弹出一个对话框（如图7）；在“用户名”后输入“软件世界”，“密码：”后输入“12345”，再单击“确定”按钮，此时便会出现一个“欢迎进行”的信息框（如图8）。怎么样，一个属于自己的“登录窗口”就制作好了。
　　但这个程序目前还只能判断在程序
用VB编写一个加密软件
编写一个加密软件，要求将源文件按字节逐位倒排序加密法加密。
字节逐位倒排序加密法是以比特为单位的换位加密方法，用VB实现的具体算法是：
(1) 以二进制模式打开源文件；
(2) 从源文件第I位读取一个字节，假设为字母“A”，得到“A”的ASCII值为65；
(3) 将65转换成八位二进制串为“”；
(4) 将“”按字节逐位倒排序得另一个八位二进制串“”；
(5) 将“”转换成十进制再写回源文件第I位置，完成一个字节的加密；
(6) 重复(2)、(3)、(4)和(5)，直到所有字节加密结束。
为了使程序模块化，我们用函数过程ByteToBin完成将字节型数据转换成二进制串（其实质就是将十进制数转换成八位二进制串）；用函数过程BinToByte将二进制串转换成字节型数据（实质是将八位二进制串转换成十进制数）：用函数过程Reverse将八位二进制串逐位倒排序。具体程序如下：
Function ByteToBin(m As Byte) As String&&' 将字节型数据转换成八位二进制字符串
&&Do While m && 0
&&& r = m Mod 2
&&& m = m \ 2
&&& c$ = r & c$
&&c$ = Right(&& & c$, 8)
&&ByteToBin = c$
End Function
Function Reverse(m As String) As String&&& ' 将八位二进制字符串颠倒顺序
&&Dim i%, x$
&&For i = 1 To 8
&&& x = Mid(m, i, 1) & x
&&Reverse = x
End Function
Function BinToByte(m As String) As Byte&&& ' 将八位二进制串转换成十进制
&&Dim x As String * 1, y%, z%
&&For i = 1 To 8
&&& x = Mid(m, i, 1)
&&& y = x * 2 ^ (8 - i)
&&& z = z + y
&&BinToByte = z
End Function
Private Sub Command1_Click()
&&Dim x As Byte, i%, fname$
&&fname = InputBox(&请输入要加密的文件名！注意加上路径名：&)
&&If Dir(fname) = && Then
&&& MsgBox &文件不存在！&
&&& Exit Sub
&&Open fname For Binary As #1&&&&&&&&' 以二进制访问模式打开待加密文件
&&For i = 1 To LOF(1)&&&&&&&&&&&&&&' LOF函数是求文件长度的内部函数
&&& Get #1, i, x&&&&&&&&&&&&&&& ' 取出第i个字节
&&& x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
&&& Put #1, i, x&&&&&&&&&&&&&&& ' 将加密后的这个字节写回到文件原位置
&&MsgBox &任务完成！&
版权所有，并保留所有权利。
Powered by , Processed in 0.025798 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved您还未登陆，请登录后操作！
求助:用VB查看网页源代码
查看网页源代码的程序.
在Text2里面显示Text1里面指网页的源代码.
请问程序怎么写?
谢谢!
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, ByVal sBuffer As
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Public Function GetUrlFile(stUrl As String) As String
Dim lgInternet As Long, lgSession As Long
Dim stBuf As String * 1024
Dim inRes As Integer
Dim lgRet As Long
Dim stTotal As String
stTotal = vbNullString
lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0)
If lgSession Then
lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
If lgInternet Then
inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
stTotal = stTotal & StrConv(LeftB$(StrConv(stBuf, vbFromUnicode), lgRet), vbUnicode)
Loop While (lgRet && 0)
inRes = InternetCloseHandle(lgInternet)
GetUrlFile = stTotal
End Function
Private Sub Command1_Click()
Text2.text=GetUrlFile(Text1.text)
自己测试了一下，顺便把源码给你。
<img class="piczoom mpic" alt="Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Public Function GetUrlFile(stUrl As String) As String
Dim lgInternet As Long, lgSession As Long
Dim stBuf As String * 1024
Dim inRes As Integer
Dim lgRet As Long
Dim stTotal As String
stTotal = vbNullString
lgSession = InternetOpen("VBTagEdit", 1, vbNullString, vbNullString, 0)
If lgSession Then
lgInternet = InternetOpenUrl(lgSession, stUrl, vbNullString, _
0, INTERNET_FLAG_NO_CACHE_WRITE, 0)
If lgInternet Then
inRes = InternetReadFile(lgInternet, stBuf, 1024, lgRet)
stTotal = stTotal & StrConv(LeftB$(StrConv(stBuf, vbFromUnicode), lgRet), vbUnicode)
Loop While (lgRet
inRes = InternetCloseHandle(lgInternet)
GetUrlFile = stTotal
End Function
Private Sub Command1_Click()
Text2.text=GetUrlFile(Text1.text)
自己测试了一下，顺便把源码给你。" src="/fimg//34/92/10/.4914406.zip_240.jpg" data-artzoom-show="/fimg//34/92/10/.4914406.zip_516.jpg" data-artzoom-source="/fimg//34/92/10/.4914406.zip_516.jpg" />
大家还关注当前位置： >
> vb如何使用模块？？（新手求救）vb中添加了好几个窗体，运行程序结束后会一个一个窗体的退出闪半天，
vb如何使用模块？？（新手求救）vb中添加了好几个窗体，运行程序结束后会一个一个窗体的退出闪半天，
linjie7337 & at
vb如何使用模块？？（新手求救）vb中添加了好几个窗体，运行程序结束后会一个一个窗体的退出闪半天，怎么能够实现就像关闭网页那样，一点结束运行马上就退出？？
小弟求教高手指教，多谢了！！
不知道LZ的程序有没有打包,如果没打包在VB中运行,这样的情况是很正常的,解决的方法是在运行前,把程序窗口和介面窗口都关了,
如果已经打包,那就是要修改你的程序,始终让显示出来的窗口只有一两个,就可以了.
linjing & &
& & （0）（0）是在vb编程环境里出现的情况吧？编码窗口、设计窗口在程序end的时候，闪半天。解决办法是：
1、暂时不用的窗口先关闭。
2、运行前，先把窗口还原，就是代码或者设计窗口不要最大化即可。linjingqi0817 & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-求助！VB程序设计扫雷游戏的代码！！！一定要是VB设计出的！_百度知道
求助！VB程序设计扫雷游戏的代码！！！一定要是VB设计出的！
注意，请存为doc或rtf格式：一律不能粘贴在网页！，文件只能是后缀为DOC格式的文件、word
文档，包含相关数据文件：2！请发我邮箱.提交综合设计报告！、图片中，我会后期加悬赏值的。注意：文档需要认真排版.com
3，初始悬赏为30分求一份VB程序设计扫雷游戏的代码，如使用word2007。多谢多谢！要求是！如果满意的话.请交综合设计源代码压缩包：lingqingyin@163
提问者采纳
提问者评价
无比的感谢你呀！我会兑现我的承诺，“满意的话，我会加分的……”太感谢你啦！！！！！
其他类似问题
扫雷游戏的相关知识
按默认排序
其他1条回答
貌似有点复杂，用Qbasic
啊哦，好吧……要是不复杂我就不来这儿问了耶……好歹还得付出我30个财富值呢……嘿嘿
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}