Bilgisayarı Resetle Ve Kapat Visual Basic İle Hazırla

**ßy_OwneR** · 05-13-2010, 19:14

arkadaslar bu vb kodu pc resetlemek,kapatmak için ve xp de bile calısabiliyor test edilmiştir calısıyor..

kapatma kodu:

Shell ("shutdown -s -t 1")

resetleme kodu:

Shell ("shutdown -r -t 1")

Assagıdakinide bu reset ve kapatma kodlarının basına yazarsanız pc her acıldığında bu porgram calıs bu kodu diger porgramları calıstırmaktada kullanabilirsiniz..

Dim wushu As Object
Set wushu = CreateObject("wscript.shell")
wushu.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

eger bunu deneyipte yapamadıysanız;
arkadaslar alttaki kodu en basa yazın foruma 2 tane buton ekleyin birisi kapatma birisi resetleme ya da iki tane ayrı porgramda yapabilirsniz sadece reset ve kapatma için sonra kapatma veya resetleme kodunu yazın hepsi bu..

**salih37** · 05-15-2010, 20:47

yok kardeş koxp kt de kapatmıyo buda kap kara ekran çıkıyo

**ßy_OwneR** · 05-16-2010, 14:06

Dim wushu As Object
Set wushu = CreateObject("wscript.shell")
wushu.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

İyi bak ?

~~01eziqler01~~ · 06-18-2010, 02:09

pc ye hangi uzantı olarak kaydedicem? ve o uzantıyı nasıl ayarlıyıcam?
mesela .exe olarak kaydedip program olarak kullansam nasıl olcuak biraz açıklarmısın?

~~01eziqler01~~ · 06-21-2010, 01:33

Konu açıyon bakmıyon bi baksan.....:!!!

**ßy_OwneR** · 06-21-2010, 21:02

Alıntı:

pc ye hangi uzantı olarak kaydedicem? ve o uzantıyı nasıl ayarlıyıcam?
mesela .exe olarak kaydedip program olarak kullansam nasıl olcuak biraz açıklarmısın?

Bak kardeşim İlk once 2 tane command açıyorsun ve Kapat ve res diye yazıyorsun sonra verdigim kodları eklıyorsun ve EXE olarak kaydediyorsun İşte bu kadar sonra kapat veya res basıp ... işte bu kadar

~~01eziqler01~~ · 06-22-2010, 11:46

Hocam .exe olarak kaydedince çalışmıyor ya yardım edermisn msn : linkinpark0795@hotmail.com.tr

**ßy_OwneR** · 06-22-2010, 14:01

Farklı Kaydet de Mesala Adı Proc Boyle yap

Proc.exe olarak kaydet

**knightonline** · 06-29-2010, 18:47

Yaptım

25 Mesaj Olsun Forumda Paylaşırım

**nero5** · 07-28-2010, 21:27

Resim : img7.imageshack.us/img7/7972/adszyc.jpg

Download Link : dosya.tc/files/LEJX2p/seriskill.exe.html

05-13-2010, 19:14	#1 (permalink)
ßy_OwneR KİNG Kişisel Bulunduğu yer: İstanbul Abisi Yaş: 21 Forum Üye No: 37367 Üyelik tarihi: Jan 2010 Mesajlar: 3.614 Teşekkürler + Puan Verdi: 19 + Puan Aldı: 4294967223 Rep Bilgileri Rep Gücü: 4754497 Rep Derecesi:	Bilgisayarı Resetle Ve Kapat Visual Basic İle Hazırla arkadaslar bu vb kodu pc resetlemek,kapatmak için ve xp de bile calısabiliyor test edilmiştir calısıyor.. kapatma kodu: Shell ("shutdown -s -t 1") resetleme kodu: Shell ("shutdown -r -t 1") Assagıdakinide bu reset ve kapatma kodlarının basına yazarsanız pc her acıldığında bu porgram calıs bu kodu diger porgramları calıstırmaktada kullanabilirsiniz.. Dim wushu As Object Set wushu = CreateObject("wscript.shell") wushu.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" eger bunu deneyipte yapamadıysanız; arkadaslar alttaki kodu en basa yazın foruma 2 tane buton ekleyin birisi kapatma birisi resetleme ya da iki tane ayrı porgramda yapabilirsniz sadece reset ve kapatma için sonra kapatma veya resetleme kodunu yazın hepsi bu.. ___[ ßy_OwneR adlı kişinin İmzası]_______________ Herşey Göründüğü Gibidir...

05-16-2010, 14:06	#3 (permalink)
ßy_OwneR KİNG Kişisel Bulunduğu yer: İstanbul Abisi Yaş: 21 Forum Üye No: 37367 Üyelik tarihi: Jan 2010 Mesajlar: 3.614 Teşekkürler + Puan Verdi: 19 + Puan Aldı: 4294967223 Rep Bilgileri Rep Gücü: 4754497 Rep Derecesi:	Dim wushu As Object Set wushu = CreateObject("wscript.shell") wushu.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS \CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" İyi bak ? ___[ ßy_OwneR adlı kişinin İmzası]_______________ Herşey Göründüğü Gibidir...

06-22-2010, 14:01	#8 (permalink)
ßy_OwneR KİNG Kişisel Bulunduğu yer: İstanbul Abisi Yaş: 21 Forum Üye No: 37367 Üyelik tarihi: Jan 2010 Mesajlar: 3.614 Teşekkürler + Puan Verdi: 19 + Puan Aldı: 4294967223 Rep Bilgileri Rep Gücü: 4754497 Rep Derecesi:	Farklı Kaydet de Mesala Adı Proc Boyle yap Proc.exe olarak kaydet ___[ ßy_OwneR adlı kişinin İmzası]_______________ Herşey Göründüğü Gibidir...

Konu Araçları
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

05-15-2010, 20:47	#2 (permalink)
salih37 Koxper Forum Üye No: 1003 Üyelik tarihi: Feb 2010 Mesajlar: 81 Teşekkürler + Puan Verdi: 1 + Puan Aldı: 41 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	yok kardeş koxp kt de kapatmıyo buda kap kara ekran çıkıyo

06-18-2010, 02:09	#4 (permalink)
~~01eziqler01~~ Banned Forum Üye No: 24661 Üyelik tarihi: May 2010 Mesajlar: 25 Teşekkürler + Puan Verdi: 2 + Puan Aldı: 1 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	pc ye hangi uzantı olarak kaydedicem? ve o uzantıyı nasıl ayarlıyıcam? mesela .exe olarak kaydedip program olarak kullansam nasıl olcuak biraz açıklarmısın?

06-21-2010, 01:33	#5 (permalink)
~~01eziqler01~~ Banned Forum Üye No: 24661 Üyelik tarihi: May 2010 Mesajlar: 25 Teşekkürler + Puan Verdi: 2 + Puan Aldı: 1 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Konu açıyon bakmıyon bi baksan.....:!!!

06-22-2010, 11:46	#7 (permalink)
~~01eziqler01~~ Banned Forum Üye No: 24661 Üyelik tarihi: May 2010 Mesajlar: 25 Teşekkürler + Puan Verdi: 2 + Puan Aldı: 1 Rep Bilgileri Rep Gücü: 10 Rep Derecesi:	Hocam .exe olarak kaydedince çalışmıyor ya yardım edermisn msn : linkinpark0795@hotmail.com.tr

06-29-2010, 18:47	#9 (permalink)
knightonline Usta Oyuncu Forum Üye No: 35189 Üyelik tarihi: Jun 2010 Mesajlar: 29 Teşekkürler + Puan Verdi: 6 + Puan Aldı: 1 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Yaptım 25 Mesaj Olsun Forumda Paylaşırım

07-28-2010, 21:27	#10 (permalink)
nero5 Oyuncu Forum Üye No: 36874 Üyelik tarihi: Jul 2010 Mesajlar: 22 Teşekkürler + Puan Verdi: 0 + Puan Aldı: 0 Rep Bilgileri Rep Gücü: 100 Rep Derecesi:	Resim : img7.imageshack.us/img7/7972/adszyc.jpg Download Link : dosya.tc/files/LEJX2p/seriskill.exe.html

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)