Teşekkür ve sizin önerinizi bekliyorum

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Bugüne kadar sitenizde sorduğum tüm sorularımın cevabını aldım ve bu sayede bir şeyler öğrendim. Ancak zaman zaman excel harici sorular ile yani vbs ve bat uzantılı dosyalar ile de ilgili sorular sordum. yinede bunların cevabını aldım. Ancak ilgi alanınız dışında soru sormak istemiyorum. Ancak bu günlerde böyle bir soru ile karşı karşıyayım ve hangi web sitesinde bu soruları sorabilirim. Tabi bu cevabı buraya direk yazmak doğru olmayabilir. Özelden mesajınızı bekliyorum.
Teşekkürler.
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Kod:
netsh wlan start hostednetwork
yukarıdaki kodu bat dosyasına yazdım ve Bat dosyasını yönetici olarak çalıştırıyorum.
Ancak, kullandığım bilgisayarda Admin yetkisi ve kısıtlı kullanıcı bulunan bir bilgisayar.
standart kullanıcıda bu bat dosyasını çalıştırdığımda Admin kullanıcı adı ve şifresini soran bir pencere geliyor. Bu gelen pencereye

administrator
asdfg12345

yazıyorum ve işlem tamam.
Nasıl bir kod yazayım ki, yani kodun içine kullanıcı adını ve şifreyi gömeyim. Bu pencere gelmeden çalışsın.
teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,232
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Sendkeys komutlarını deneyebilirsiniz...
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Sendkeys komutlarını deneyebilirsiniz...
Denedim ama yapamadım; Yaptığım işlem şöyle,

1 tane .bat dosyası hazırladım
Kod:
netsh wlan start hostednetwork
start ikincidosya.vbs
1 tanede .vbs dosyası hazırladım
Kod:
 'Kullanıcı Adı ve Şifre Girişi 
Set WshShell = WScript.CreateObject("WScript.Shell")

'---------------
' KOD DENEME
  WshShell.Run "notepad.exe", 9
'-----

 'Bekle				
WScript.Sleep 1500 

 'Kullanıcı adı yaz
WshShell.SendKeys "administrator"
 'Bekle				
WScript.Sleep 1500 

WshShell.SendKeys "{TAB}"
 'Bekle				
WScript.Sleep 1500 

 'Şifreyi yaz
WshShell.SendKeys "123456"
WshShell.SendKeys "{ENTER}"
evet ilk önce bat dosyasını yönetici olarak çalıştırıyorum.
Ama olmuyor.
Ne yapabilirim
 
Üst