Explorer yerine Chrome veya Firefox ile çalışmasını sitiyorum

[biologgg]

Merhaba sayın arkadaşlar.

Ben şu aşağıda linkini verdiğim excel dosyasını chrome veya firefoxta çalıştırmak istiyorum.Ne yapmam gerekiyor.Şimdiden teşekkürler.

http://www.excel.web.tr/f48/excel-ile-nternet-hesaplaryna-eri-im-t93180.html

 

[biologgg]

Arkadaşlar yardımcı olursanız çok mutlu olacağım.

 

[Zeki Gürsoy]

Google Chrom' u bilemiyorum; Firefox bir ActiveX exe olmadığı için Explorer çağırımını desteklemez. Kendi ocx nesnesini ancak userform üzerinde kullanırsanız işe yarıyor. O da bi yere kadar...

http://www.iol.ie/~locka/mozilla/MozillaControl1712.exe

 

[biologgg]

Google Chrom' u bilemiyorum; Firefox bir ActiveX exe olmadığı için Explorer çağırımını desteklemez. Kendi ocx nesnesini ancak userform üzerinde kullanırsanız işe yarıyor. O da bi yere kadar...

http://www.iol.ie/~locka/mozilla/MozillaControl1712.exe

Hocam cevabınız için çok teşekkür ederim.

Peki aynı excel kodlarını chrome veya firefox için yazamaz mıyız?

Yazdığımız kod Explorer'ı değilde chrome veya firefoxu çağırsın .

 

[biologgg]

arkadaşlar lütfen cevap verin acil lazım bana bu excel dosyası

 

[biologgg]

Bu kadar mı zor cevap yazmak yahu..Niye kasıyorsunuz..Siz gelin bana elektronikle ilgili herşeyi sorun cevap vereyim..Herkes artiz olmuş bu forumda.Kasım kasım kasılıyorsunuz..

Bir şey soruyoruz 3 günde cevap alıyoruz..Herkes bilmek zorunda değilki..bilmeyene göre anlatmakta ustalıktır.

Herkes bilse bu foruma ne gerek vardı..Ayrıca bildiklerini saklayan kişi cahilden daha cahildir.

 

[Zeki Gürsoy]

Başlığa verilebilecek cevap verilmiş... Konuda başka bilgisi/fikri olan şimdiye yazardı. Mızıkçılığa gerek yok yani.

 

[needfull]

set calis=createobject("wscript.shell")
calis.run "firefox.exe http://www.facebook.com"
wscript.sleep(5000)

calis.sendkeys("email")
calis.sendkeys("{TAB}")
calis.sendkeys("parola")
calis.sendkeys("{TAB 2}")
calis.sendkeys("{ENTER}")
wscript.quit

--------------------------------------

çizgiden öncekileri bir not defterini yapıştır ve uzantısını "vbs" yap ve çalıştır.. email ve parola olan yerleri doldur... firefox da açacaktır..

chrome'da ise "firefox.exe yerine "chrome.exe" yapabilirsin...

bu scriptin sağlıklı çalışabilmesi için facebookda önceden kayıtta kalan bir hesap olursa oturumu açık kalan veya geçmişi hatırladığından kalan bir hesap çalışmayacaktır.

Not : Bu kodlamaları excelde de kullanabilirsin..

 

[mbasaranyt]

Konu Eski ama Bu Kodlarla Firefox açıksa çalışıyor Kapalıyken çalışmıyor
Açılmış Firefox varsa şifreleri otomatik atama yapıyor yeni açılıyorsa yapmıyor acaba
kodları geliştirebilirmiyiz.Teşekkürler

Sub firefoxx()
Dim internet As Object
Dim adres As String
adres = "https://www.kbs.gov.tr/gen/login.htm"
Set internet = CreateObject("WScript.Shell")
internet.Run "firefox.exe " & adres
Application.Wait Now + TimeValue("00:00:05")

'wscript.sleep (5000)
internet.SendKeys ("12345678901")
internet.SendKeys ("{TAB}")
internet.SendKeys ("123456")
internet.SendKeys ("{TAB}")
'internet.SendKeys ("{ENTER}")
'wscript.Quit
End Sub

 

[mbasaranyt]

Konu Güncel Üstad'ların Bir Bakması Gerek.
Not : Bu kodlamaları excelde de kullanabilirsiniz