关于vb58net的信息

vb.net 用户登录

哈哈简单哪

第一步：登陆网页代码

第二步：登陆以后判断是否登陆成功

有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样

源代码：

2.就是判断网页是否跳转到了某一页

源代码：

两种方法结合起来用，可以判断网页是否无法连接

相关问答

Q1: vb.net中如何动态修改网页中的内容

http是无连接的，所以不可能有保持连接不断开的方法

动态修改网页中的内容建议用Ajax

Q2: vb.net编写程序时如何存储设置参数？

比较专业的做法是在项目中添加微软的Application Settings类，详细帮助文档：

使用极其简单，假设在settings1.settings设置一个项目，名称：IP，类型：String，范围：用户，值：192.168.1.1

调用：Dim sIP As String = setting.IP

获取缺省值：Dim sIP As String = Settings1.Default.IP

保存： setting.IP = "192.168.1.30" : setting.Save()

Q3: 如何用 VB 或 VB.Net 来撰写 ASP 的 Server.URLencode 函数

请参考底下做法:VB.Net 程式码如下 :Public Function URLEncode(ByRef strEnc As String) As StringDim strTmp2, strChar, strTmp, strRet As StringDim lngLoop As IntegerFor lngLoop = 0 To strEnc.Length - 1strChar = strEnc.Substring(lngLoop, 1)Select Case Asc(strChar)Case 48 To 57, 65 To 90, 97 To 122strRet = strCharCase 32strRet = "+"Case ElsestrTmp = Hex(Asc(strChar))If strTmp.Length 4 Then strTmp = strTmp.Substring(4)strRet = "%" strTmp.Substring(0, 2)If strTmp.Length 2 ThenstrTmp2 = strTmp.Substring(2)strRet = IIf(IsNumeric(strTmp.Substring(2, 1)), Chr(Val("H" strTmp2)), "%" strTmp2)End IfEnd SelectNextURLEncode = strRetEnd Function或Public Function URLenc(ByVal strEnc As String) As StringDim lngLoop, lngAsc As LongDim strChr As StringFor lngLoop = 0 To strEnc.Length - 1strChr = strEnc.Substring(lngLoop, 1)If Math.Abs(Asc(strChr)) 255 ThenURLenc = strChrElselngAsc = Asc(strChr)If lngAsc 0 Then lngAsc = lngAsc + 65536URLenc = "%" Hex((lngAsc And -256) \ 255) "%" Hex(lngAsc And 255)End IfNextEnd Function呼叫:MessageBox.Show(URLEncode("强力鎯头 PowerHammer !"))MessageBox.Show(URLenc("强力鎯头 PowerHammer !"))结果显示 :%B1j%A4O%EE%CF%C0Y+PowerHammer+%21%B1%6A%A4%4F%EE%CF%C0%59 PowerHammer ! ================================================================VB6 程式码如下 :Public Function URLEncode(strEnc As String) As StringDim strChar As String, strTmp As String, strTmp2 As String, strRet As StringDim lngLoop As LongFor lngLoop = 1 To Len(strEnc)strChar = Mid(strEnc, lngLoop, 1)Select Case Asc(strChar)Case 48 To 57, 65 To 90, 97 To 122strRet = strRet strCharCase 32strRet = strRet "+"Case ElsestrTmp = Format(Hex(Asc(strChar)), "00")strRet = strRet "%" Left(strTmp, 2)strTmp2 = Mid(strTmp, 3, 2)If Len(strTmp) 3 ThenstrRet = strRet IIf(IsNumeric(Mid(strTmp, 3, 1)), Chr(Val("H" strTmp2)), "%" strTmp2)End IfEnd SelectNextURLEncode = strRetEnd Function或Public Function URLenc(strEnc As String) As StringDim lngLoop As Long, lngAsc As LongDim strChr As StringFor lngLoop = 1 To Len(strEnc)strChr = Mid(strEnc, lngLoop, 1)If Abs(Asc(strChr)) 255 ThenURLenc = URLenc strChrElselngAsc = Asc(strChr)If lngAsc 0 Then lngAsc = lngAsc + 65536URLenc = URLenc "%" Hex((lngAsc And -256) \ 255) "%" Hex(lngAsc And 255)End IfNextEnd Function呼叫:MsgBox URLEncode("强力鎯头 PowerHammer !")MsgBox URLenc("强力鎯头 PowerHammer !")结果显示 :%B1j%A4O%EE%CF%C0Y+PowerHammer+%21%B1%6A%A4%4F%EE%CF%C0%59 PowerHammer ! ================================================================ASP 程式码如下(多此一举,因为ASP本来就有Server.URLencode) :Public Function URLEncode(strEnc)Dim strChr, intAsc, strTmp, strTmp2, strRet, lngLoopFor lngLoop = 1 To Len(strEnc)strChr = Mid(strEnc, lngLoop, 1)intAsc = Asc(strChr)If ((intAsc 58) And (intAsc 47)) Or ((intAsc 91) And (intAsc 64)) Or ((intAsc 123) And (intAsc 96)) ThenstrRet = strRet strChrElseIf intAsc = 32 ThenstrRet = strRet "+"ElsestrTmp = Hex(Asc(strChr))strRet = strRet "%" Right("00" Left(strTmp, 2), 2)strTmp2 = Mid(strTmp, 3, 2)If Len(strTmp) 3 ThenIf IsNumeric(Mid(strTmp, 3, 1)) ThenstrRet = strRet Chr(CInt("H" strTmp2))ElsestrRet = strRet "%" strTmp2End IfEnd IfEnd IfNextURLEncode = strRetEnd Function或Public Function URLenc(strEnc)Dim lngLoop, lngAsc, strChrFor lngLoop = 1 To Len(strEnc)strChr = Mid(strEnc, lngLoop, 1)If Abs(Asc(strChr)) 255 ThenURLenc = URLenc strChrElselngAsc = Asc(strChr)If lngAsc 0 Then lngAsc = lngAsc + 65536URLenc = URLenc "%" Hex((lngAsc And -256) \ 255) "%" Hex(lngAsc And 255)End IfNextEnd Function呼叫:Response.write URLEncode("强力鎯头 PowerHammer !")Response.write URLenc("强力鎯头 PowerHammer !")结果显示 :%B1j%A4O%EE%CF%C0Y+PowerHammer+%21%B1%6A%A4%4F%EE%CF%C0%59 PowerHammer !