Çözüldü Not defteri ile kendinden birkaç tane daha açan kodlama

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
twchplus

twchplus

Hectopat
Katılım
28 Eylül 2021
Mesajlar
460
Makaleler
2
Çözümler
2
Daha fazla  
Sistem Özellikleri
8 GB Ram, intel core i3-4160 3.60 GHz , AMD Radeon R7 240, MSI H81M-P33
Cinsiyet
Erkek
Not defteri ile kapanmayan kapatmaya çalışılınca kendinden birkaç tane daha açan bir kod arıyorum normalde.

Kod: 
do
msgbox "herhangi bir yazi"
loop

Gibi ama kendinden birkaç tane daha açmıyor. Bu kodu yazabilir misiniz?
 
Çözüm
user.cs
twchplus dedi:
Bu kod işe yaradı ama kendini kapatmaya çalışınca birkaç tane daha açmıyor.
Genişletmek için tıkla...
Amacınız aynı anda bir sürü MsgBox göstermekse yapamazsınız çünkü MsgBox input bekler kullanıcıdan. Farklı bir programı deneyebilirsiniz ama. Örneğin hesap makinesi spamlayan program(Gösterilmese bile arkaplanda çalışıyor spamlanan programlar.):
Kod: 
For i=2 To 10 Step 0
    strProgramPath =  """calc.exe"""
    set objShell = createobject("Wscript.Shell")
    objShell.Run strProgramPath
Next
Tarihe göre sırala Puana göre sırala
user.cs dedi:
Kod: 
:loop
msgbox "text"
goto loop
Bu şekilde yazıp, bat olarak kaydederek dener misiniz?
Genişletmek için tıkla...
tamamdır geç oldu kusura bakma bir yere gittim de deniyorum

user.cs dedi:
Kod: 
:loop
msgbox "text"
goto loop
Bu şekilde yazıp, BAT olarak kaydederek dener misiniz?
Genişletmek için tıkla...

Maalesef işe yaramadı BAT olarak kaydedince CMD de yazılar akıyor aşağı doğru VBS yapınca error veriyor :(
 
Artı 0 Eksi
Artı 0 Eksi
twchplus dedi:
Bu kod işe yaradı ama kendini kapatmaya çalışınca birkaç tane daha açmıyor.
Genişletmek için tıkla...
Amacınız aynı anda bir sürü MsgBox göstermekse yapamazsınız çünkü MsgBox input bekler kullanıcıdan. Farklı bir programı deneyebilirsiniz ama. Örneğin hesap makinesi spamlayan program(Gösterilmese bile arkaplanda çalışıyor spamlanan programlar.):
Kod: 
For i=2 To 10 Step 0
    strProgramPath =  """calc.exe"""
    set objShell = createobject("Wscript.Shell")
    objShell.Run strProgramPath
Next
 
Son düzenleyen: Moderatör:
Artı 0 Eksi
Çözüm
user.cs dedi:
Amacınız aynı anda bir sürü msgbox göstermekse yapamazsınız çünkü msgbox input bekler kullanıcıdan. Farklı bir programı deneyebilirsiniz ama. Örneğin hesap makinesi spamlayan program(gösterilmese bile arka planda çalışıyor spamlanan programlar.):
Kod: 
For i=2 To 10 Step 0
 strProgramPath = """D:\Program Arsivi\joytester.exe"""
 set objShell = createobject("Wscript.Shell")
 objShell.Run strProgramPath.
 objShell.Run strProgramPath.
 objShell.Run strProgramPath.
Next
Genişletmek için tıkla...

He tamam.
 
Son düzenleyen: Moderatör:
Artı 0 Eksi
user.cs dedi:
Amacınız aynı anda bir sürü msgbox göstermekse yapamazsınız çünkü msgbox input bekler kullanıcıdan. Farklı bir programı deneyebilirsiniz ama. Örneğin hesap makinesi spamlayan program(gösterilmese bile arka planda çalışıyor spamlanan programlar.):
Kod: 
For i=2 To 10 Step 0
 strProgramPath = """calc.exe"""
 set objShell = createobject("Wscript.Shell")
 objShell.Run strProgramPath.
Next
Genişletmek için tıkla...

Bu kod acayip %1 CPU olan PC'yi %100 yaptı ekran kartı yanıyordu az daha.
 
Son düzenleyen: Moderatör:
Artı 0 Eksi

Benzer konular

ati11a
Not defteri ile mesaj kutusu nasıl yapılır?
2
Mesaj
11
Görüntüleme
1.426
ION
ION
BKDurak
Not defterinden site açan kod nasıl yazılır?
Mesaj
8
Görüntüleme
1.419
glikojen
glikojen
Jroxy
C# ile arka planda çalışacak not defteri uygulaması yapma
Mesaj
6
Görüntüleme
666
296181
2
5
C/C++  Not defteri projesi
Mesaj
6
Görüntüleme
1.364
533388
5
Y
Bin dosyaları not defteri olarak gözüküyor
Mesaj
1
Görüntüleme
351
Taspar
Taspar

Technopat Haberler

Yeni konular

Yeni mesajlar

Geri
Yukarı