Arkadaş Olmadı Diyor ama

screenshotta bak fuujin diye klasor olusturulmus kontrol panelinde ve cift tiklayinca programin acilir..

peki silmesi nasıl oluyor?

Resimli anlatım olsa iyi olurdu Elinize sağlık pek birşey anlamadım..

Denedim olmadı malesef.. yada ben yapamadım

baba buyuksun valla 0010-

Şuan Fuujin isimli snn ki gibi dosya oluştu denetim masamda ne yapıcam neye yarayacak?

Cengiz sen Visual Basic ile uğraşıyormusun Teşekkürler fuujin eline sağlık kardeşim:flowers:

zaten; pro kodlari paylasmayacaktim ama 5-6 kisinin hatrina neyse... derken aklima ilk sen geldin^^ senin isine cok yaracagina eminim... elimde super kodlar var en son bir program yazdim system ile hook yontemi ile program kapanmiyor yani gizlenmiyor ama kapatamiyorsunda ne yaparsan yap kapatamiyorsun harika birsey... hadi kolay gelsin

Teşekkürler fuujin

Dostum var ya seni sevmeyen ölsün Cidden heryerde bulunmayacak bir paylaşım. Karmayı fazlasıyla hakettin ama o da verebilirsem +

Tam olarak ne işe yarıyor açarmısın açıklamayı

buyrun ornek :flowers: artik ben ne yapayim?...

kodlari cok basit ama bu kodlari bulmasi zor... kontrol panelinde programinizi ekleyin... pro kodlari paylasmayacaktim ama 5-6 kisinin hatrina neyse... forma 2 button atin command1 olustur command2 sil... formun load kismina... fuujin ve www.wardom.org kisimlarini degistirin kafaniza gore... Option Explicit Private Sub Command1_Click CreateEntryToSystemPanel " ", "Fuujin", "www.wardom.org", App. Path & "\" & App. EXEName & ". exe,0", App. Path & "\" & App. EXEName & ". exe -options" Shell ("rundll32. exe shell32. dll, Control_RunDLL"), vbNormalFocus End Sub Private Sub Command2_Click RemoveEntryToSystemPanel " " End Sub modul olustur... Option Explicit Private Const REG_SZ = 1 Private Const REG_BINARY = 3& Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Declare Function SHSetValue Lib "shlwapi. dll" Alias "SHSetValueA" As Long Private Declare Function SHDeleteKey Lib "shlwapi. dll" Alias "SHDeleteKeyA" As Long Public Function CreateEntryToSystemPanel Dim lngRet As Long lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID, vbNullString, REG_SZ, ByVal Titel, LenB + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID, "InfoTip", REG_SZ, ByVal ToolTipText, LenB + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\DefaultIcon", vbNullString, REG_SZ, ByVal IconDatei, LenB + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\InProcServer32", vbNullString, REG_SZ, ByVal "shell32. dll", LenB("shell32. dll") + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\InProcServer32", "ThreadingModel", REG_SZ, ByVal "Apartment", LenB + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\Shell", vbNullString, REG_SZ, vbNullString, 0) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\Shell\Open", vbNullString, REG_SZ, vbNullString, 0) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\Shell\Open\Command", vbNullString, REG_SZ, ByVal FileToOpen, LenB + 1) lngRet = SHSetValue(HKEY_CLASSES_ROOT, "CLSID\" & GUID & "\ShellFolder", "Attributes", REG_BINARY, 0, 4) lngRet = SHSetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\ ", vbNullString, REG_SZ, vbNullString, 0) lngRet = SHSetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\ ", vbNullString, REG_SZ, vbNullString, 0) End Function Public Sub RemoveEntryToSystemPanel Dim lngRet As Long lngRet = SHDeleteKey lngRet = SHDeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\ ") lngRet = SHDeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\ ") End Sub bu kadar basit hadi kolay gelsin... edit: explore r degil-->tabiki hepsi bitisik neden ayri yazdigini bilmiyorum... -

Tşkler 0010-