Do While Not EOF(1) m = m + 1 Line Input

görüşleriniz neler?

Else Text1(0). Text = "http://192.168.1.1" Text1(1). Text = "Varsa Kullanıcı Adı" Text1(2). Text = "" Text1(3). Text = "Varsa User 'name'" Text1(4). Text = "LoginPassword" Text1(5). Text = "http://192.168.1.1/DiagADSL.html" Text1(6). Text = "Prestige_Login" Text1(7). Text = "DiagResetADSL" End If gizlen = GetSetting WebBrowser1. Navigate Text1(0). Text durum = -1 If gizlen = 1 Then Timer2. Enabled = True: Exit Sub Me. Hide End Sub Private Sub Timer1_Timer WebBrowser1. Silent = True k = k + 1 If k = 1 Then WebBrowser1. Navigate Text1(5). Text If k = 2 Then WebBrowser1. Document. All(Text1(7). Text). Click: Timer1. Enabled = False End Sub Private Sub Timer2_Timer durum = durum + 1 Label4. Caption = Abs(durum - 80) If durum = 1 Then Command1_Click If durum = 80 Then End End Sub kodu isterseniz buradan indirin forumdaki başlığım http://www.wardom.org/zyxel-p-660hw-t1-modem-resetleme-programi-usdownloader-tarzi-programlar-icin-t252493.html?p=2129497#post2129497

End If gizlen = GetSetting If gizlen <> 1 Then sor = MsgBox If sor = vbYes Then SaveSetting App. EXEName, "ayarlar", "gizle", "1" kadii = GetSetting If kadii = 1 Then If Text1(3). Text = "" And Text1(1) = "" Then GoTo giris WebBrowser1. Document. All(Text1(3)). Value = Text1(1). Text GoTo giris Else GoTo giris End If giris: WebBrowser1. Document. All(Text1(4). Text). Value = Text1(2). Text WebBrowser1. Document. All(Text1(6). Text). Click k = 0 Timer1. Enabled = True End Sub Private Sub Command2_Click WebBrowser1. Navigate Text1(0). Text End Sub Private Sub Form_Load On Error Resume Next Label3. Caption = "Copyright Fikret Başgül Tüm kod bana aittir izinsiz kullanmazsanız sevinirim :)" a = Dir If a <> "" Then m = -1 Open App. Path & "\reset. txt" For Input As

linkten indirip bi dene istersen. direk gizliyo kendini -

For t = 0 To 7 Write

evet if sorgusunu yaparken farkına vardım ama kodlar elinizde istediğiniz gibi düzenleyebilirsiniz ama sorunsuz çalışıyor You must log in or register to reply here. Alakalı Olabilecek Konular I Vb6 Msflexgrİd nesnesine Txt dosyasını okutma Hk. ikayserili 11 Şubat 2021 Yanıt 0 Gösterim 2K 11 Şubat 2021 ikayserili I Forum Programlama Visual Basic Bize Ulaşın Forum Kuralları Gizlilik Sözleşmesi Yardım Ana Sayfa RSS bafra oto ekspertiz, Tiktokbegeni.com, erkek cüzdan, eskişehir haber, çelik ranza, hasta yatağı kiralama, bonus veren siteler, ankara oto ekspertiz, istanbul oto ekspertiz, eskişehir oto ekspertiz, çorum oto ekspertiz, geobonus. org, deneme bonusu, bonusportali.com, vbet giriş, Pokerklas, Caddebet, megapari giriş, meritking giriş, meritking, kingroyal giriş, bahis siteleri, betwinner, rokubet giriş, deneme bonusu veren siteler, takipçi satın al, deneme bonusu veren siteler, betnano giriş, elektronik sigara, deneme bonusu veren siteler, replika saat, melbet giriş, smok, deneme bonusu, bahis forum, melbet, izmit oto ekspertiz, poppers turkiye, eskişehir oto ekspertiz, dalyan otel, hack forum, melbet, sohbet numaraları Wardom. Org Bilginin Adresi. 1998'den beri Wardom yayında! Wardom Türkiye'nin en eski forum sitelerinden biri olarak günümüz web sitelerine sponsor linkler yayınlanmaktadır. ataşehir escort maltepe escort pendik escort gaziantep rus escort xxx videos erotik film izle istanbul escort ankara escort istanbul escort gaziantep escort gaziantep escort Paylaşım sitemizde 5651/8 ve 125. madellere göre, tüm üyeler ve ziyaretçiler sitenin kullanımı ve yapılan paylaşımlarından kendileri sorumludur. Şikayetleriniz için bize ulaşabilirsiniz. Tüm hakları saklıdır 2015 Wardom. Org bilginin adresi. Forum ve bilgisayar güvenliği sitesi. var sc_project=2030864;var sc_invisible=1;var sc_security="c6df530c"; Üst <div class="tooltip-content-inner"> <div class="reactTooltip"> <a href="#" class="reaction reaction--1" data-reaction-id="1"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Like" title="Like" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--2" data-reaction-id="2"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Love" title="Love" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--3" data-reaction-id="3"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Haha" title="Haha" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--4" data-reaction-id="4"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Wow" title="Wow" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--5" data-reaction-id="5"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Sad" title="Sad" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> <a href="#" class="reaction reaction--6" data-reaction-id="6"><i aria-hidden="true"></i><img src="data:image/gif;base64, R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="reaction-sprite js-reaction" alt="Angry" title="Angry" data-xf-init="tooltip" data-extra-class="tooltip--basic tooltip--noninteractive" /></a> </div> </div> { "@context": "https://schema.org", "@type": "DiscussionForumPosting", "@id": "https:\/\/www.wardom.org\/threads\/modem-reset-atma.231690\/", "headline": "Modem reset atma", "articleBody": "Dim k, say, durum, adi As Integer\r\nPrivate Sub Check2_Click \r\nIf Check2. Value = 0 Then\r\n SaveSetting App. EXEName, \"ayarlar\", \"kadi\", \"1\"\r\n Text1(1). Text = \"\"\r\n Text1(3). Text = \"\"\r\n Text1(1). Enabled = True\r\n Text1(3). Enabled = True\r\n Text1(1). SetFocus\r\nElse\r\n SaveSetting App. EXEName, \"ayarlar\", \"kadi\", \"0\"\r\n Text1(1). Text = \"Varsa Kullanıcı Adı\"\r\n Text1(3). Text = \"Varsa User 'name'\"\r\n Text1(1). Enabled = False\r\n Text1(3). Enabled = False\r\nEnd If\r\nEnd Sub\r\n\r\nPrivate Sub Check3_Click \r\nIf Check3. Value = 0 Then Text1(2). PasswordChar = \"\" Else Text1(2). PasswordChar = \" \"\r\nEnd Sub\r\n\r\nPrivate Sub Command1_Click \r\nOn Error Resume Next\r\na = Dir \r\nIf a = \"\" Then\r\nOpen App. Path & \"\\reset. txt\" For Output As

Kod: Dim k, say, durum, adi As Integer Private Sub Check2_Click If Check2. Value = 0 Then SaveSetting App. EXEName, "ayarlar", "kadi", "1" Text1(1). Text = "" Text1(3). Text = "" Text1(1). Enabled = True Text1(3). Enabled = True Text1(1). SetFocus Else SaveSetting App. EXEName, "ayarlar", "kadi", "0" Text1(1). Text = "Varsa Kullanıcı Adı" Text1(3). Text = "Varsa User 'name'" Text1(1). Enabled = False Text1(3). Enabled = False End If End Sub Private Sub Check3_Click If Check3. Value = 0 Then Text1(2). PasswordChar = "" Else Text1(2). PasswordChar = " " End Sub Private Sub Command1_Click On Error Resume Next a = Dir If a = "" Then Open App. Path & "\reset. txt" For Output As