<td width="440" class="orange">
<input type="HIDDEN" name="BridgeFlag" value="0"><input type="BUTTON" name="SaveBtn" value="KAYDET" onclick="uiSave()" class="sbutton"></td>
bu satırdaki kaydet 'e onclick yaptırmaya çalışıyorum fakat ne yaptıysam yemedi bi türlü çıldırıcam lütfen yardım edin.
Edit...
TP Link 54 mb wiriless modem için sınırsız ıp değiştirme kodlarını paylaşıyorum hayır severimdir
Modeme reset atmıyor tam olarak sadece ip değiştirmektedir.
5 tane xxxx koyduğum yerleri kendi ttnet bilgileriniz ile değiştiriniz.
Projelendirmek istyenler için...
Yazılım Versiyonu
:
3.0.0 Build 100702 Rel.26418
Private Sub ModemeResetAt()
On Error Resume Next
Dim cweb As String = "http://192.168.1.1/Forms/home_wan_1"
Dim POST As String = "HiddenFlag=0&wan_VC=PVC0&wanVCFlag=0&wan_VCStatus=1&Alwan_VPI=8&Alwan_VCI=35&Alwan_QoS=UBR&wan_PCR=0&wanConTypeFlag=0&wanTypeRadio=Two&wan_PPPServicename=&Allow_Empty_Flag=1&Check_UsrPsw_Flag=0&Empty_UsrPsw_Flag=0&wan_PPPUsername=xxxxx%40ttnet&wan_PPPPassword=xxxxx&wan_PPPEncap=PPPoE+LLC&PPPoEBIStatus=0&wan_ConnectSelect=Connect_Keep_Alive&wan_TCPMSS=1400&wan_PPPGetIP=0&wan_NAT=Etkin&WAN_DefaultRoute=1&wan_TCPMTU=1480&wan_RIPVersion=RIP2-B&wan_RIPDirection=Hepsi&wan_IGMP=Devre+d%FD%FE%FD&wan_EnabledSpoof=0&BridgeFlag=0&wanIGMPQitFlag=0&wan_PVCO_Flag=0&PageLockValue=0"
Dim request As HttpWebRequest
Dim response As HttpWebResponse
Dim authorization_type As String = "Basic YWRtaW46YWRtaW4="
Dim username As String = "admin"
Dim password As String = "admin"
request = CType(WebRequest.Create(cweb), HttpWebRequest)
request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/28.0.1500.72 Safari/537.36"
Dim Authorization As String = authorization_type & " username=" & username & ",password=" & password
request.Headers("Authorization") = Authorization.ToString
request.AllowAutoRedirect = True
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = POST.Length
request.Method = "POST"
request.KeepAlive = True
Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
requestStream.Write(postBytes, 0, postBytes.Length)
' Get the response.
requestStream.Close()
response = request.GetResponse()
Dim sr As New StreamReader(response.GetResponseStream())
Dim result = sr.ReadToEnd()
End Sub