Jump to content
Son zamanlarda artan kullanıcı hesap hırsızlıkları sebebiyle tüm kullanıcılara şifre sıfırlama maili gönderilmiştir. Lütfen güveli şifreler seçiniz. Mevcut e-mail adresinize erişemiyorsanız, en aşağıdaki destek linkinden bize ulaşınız. ×

Ini Dosyasını Okuma Işlemi


korasoglu
 Share

Recommended Posts

İni Dosyasını Okuma İşlemi

Arkadaşlar ben bir siteye Kullanıcı Adı ve şifre  girişi yapmak istiyorum ama kullanıcı ad ve şifreyi yanındaki iniden alması gerekiyor.

Sleep(5000)
Send("xxxxxxx")
Send("{TAB}")
Send("xxxxxxx")
Send("{TAB}")
Send("{ENTER}")

inimiz şöyle olsa

[Kullannici]

Ad

Soyad gibi olsa

bu kod istediğimi yapıyor fakat aynı zamanda chrome açık değilse açmasıni (www.google.com açmasını) ve işi bitincede kapanmasını istiyorum yardımlarınızdan dolayı teşekkür ederim.

Edited by korasoglu
Link to comment
Share on other sites

En basitinden ini dosyasına yazmak,okumak,silmek vs.

$sFilePath = @TempDir & "\LoginNamePass.ini"

$skullaniciAd = InputBox("Kullanici ekle", "Kullanici Adı?", "mehmet")
$skullaniciSoyAd = InputBox("Kullanici ekle", "Kullanici Soy Adı?", "TNCTR")

IniWrite($sFilePath, "Kullanici", "Ad", $skullaniciAd)
IniWrite($sFilePath, "Kullanici", "SoyAd", $skullaniciSoyAd)
$sReadAd = IniRead($sFilePath, "Kullanici", "Ad", "Default Value")
$sReadSoyAd = IniRead($sFilePath, "Kullanici", "SoyAd", "Default Value")
MsgBox(0, "", "Kullanıcı Ad: " & $sReadAd & @CRLF & _
		"Kullanıcı SoyAd: " & $sReadSoyAd)
ShellExecute($sFilePath)
;~ IniDelete($sFilePath, "Kullanici", "Ad")
;~ IniDelete($sFilePath, "Kullanici", "SoyAd")
;~ FileDelete($sFilePath)

 

Edited by Mehmet
  • Like 1
  • Thanks 1
Link to comment
Share on other sites

Eğer bu link get yöntemi ise...

$sFilePath = @TempDir & "\LoginNamePass.ini"

$skullaniciAd = InputBox("Kullanici ekle", "Kullanici Adı?", "mehmet")
$skullaniciSoyAd = InputBox("Kullanici ekle", "Kullanici Soy Adı?", "TNCTR")

IniWrite($sFilePath, "Kullanici", "Ad", $skullaniciAd)
IniWrite($sFilePath, "Kullanici", "SoyAd", $skullaniciSoyAd)
$sReadAd = IniRead($sFilePath, "Kullanici", "Ad", "Default Value")
$sReadSoyAd = IniRead($sFilePath, "Kullanici", "SoyAd", "Default Value")
MsgBox(0, "", "Kullanıcı Ad: " & $sReadAd & @CRLF & _
		"Kullanıcı SoyAd: " & $sReadSoyAd)
;~ ShellExecute($sFilePath)
;~ IniDelete($sFilePath, "Kullanici", "Ad")
;~ IniDelete($sFilePath, "Kullanici", "SoyAd")
;~ FileDelete($sFilePath)

_Linkac($sReadAd & " " & $sReadSoyAd)

Func _Linkac($sSearch)
    ShellExecute('https://www.google.com/search?q='& $sSearch)
EndFunc

 

Edited by Mehmet
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...