13518219792
哈哈简单哪
成都创新互联公司自2013年起，是专业互联网技术服务公司，拥有项目成都做网站、网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元宾县做网站,已为上家服务,为宾县各地企业和个人服务,联系电话:18980820575
第一步：登陆网页代码
第二步：登陆以后判断是否登陆成功
有两种方法：1.获取网页代码，判断网页字符有无”登陆成功”字样
源代码：
2.就是判断网页是否跳转到了某一页
源代码：
两种方法结合起来用，可以判断网页是否无法连接
http是无连接的，所以不可能有保持连接不断开的方法
动态修改网页中的内容建议用Ajax
比较专业的做法是在项目中添加微软的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()
请参考底下做法: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 !
