اريد طريقة تجعل البرنامج يشتغل و هو مخفي
مثل المرفق
و البرامج حقي عبارة عن فورم فاضية لا يوجد بها شئ سوى
اكواد مثل
اذا ضغطت
F1
يسوي امر معين
اريده يشتغل في كل مكان
ارجوا ان القا رد عندكم وشكرا
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
ما زبطت معي يا اخي العزيز
حطيت الكود بس ضغطت F1
ما زبط
هل عندك حل ثاني
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
في خواص الفورم
خلي الخاصية
visible -----> false
ودي الطريقة ما تفرق عن طريقة hnhn
بس جرب
برضو ما زبطت
ارجوا ان القا حل و بسرعة لو سمحت لاني والله محتاجها مرررررررة
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
السلام عليكم
اخي اذا كنت تريد تنفيد اوامر من خلال الضغط على مفاتيح معينة مثل F1,F2 هذا يحتاج الى ان يكون الفورم اكتف فضلا على انه مخفي
فاذا كان الفورم ظاهر لكن ليس اكتف فلن تعمل هذه الاومر لازم يكون الفورم اكتف لان الاوامر موضوعة في حدث Form_MouseDown فاذا كان الفورم مخفي اكيد لن تعمل الاومر ايضا
انا عندي نفس المشكلة حتى اني اضريت الى تغير فكرة البرنامج من الاصل
السلام عليكم
إليكم الرد يا شباب
تكتب هذا الكود في قسم العام
Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type Msg
hWnd As Long
Message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Sub ProcessMessages()
Dim Message As Msg
Do While Not bCancel
WaitMessage
If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
تضع هنا الكود الذي تريد تنفيذه عند الضعظ علي الزرين
End If
DoEvents
Loop
End Sub
وتكتب قي حدث
Private Sub Form_Load()
bCancel = False
Ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_ALT , vbKeyF1)نسنطيع تغير الزرين هنا
Me.AutoRedraw = True
Show
ProcessMessages
End Sub
انتظر الرد
وسلام عليكم ورحمه الله وبركاته
_________________________________________________
سورس وكود برنامج التجسس علي لوحه المفاتيح
مشكور اخي hythamzero على الرد
ولكن والله ما فهمت شي ممكن تسويلي مثال و تحطه لي في الموضوع ؟؟؟؟؟
والله الموفق
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
شئ غريب!!
لا تعرف أين تضع الكود !! كيف تبرمج اذاً؟
هذا الكود الذي وضعه الأخ فقط عليك ان تقوم بـ copy & paste
Private Const MOD_ALT = &H1 Private Const MOD_CONTROL = &H2 Private Const MOD_SHIFT = &H4 Private Const PM_REMOVE = &H1 Private Const WM_HOTKEY = &H312 Private Type POINTAPI X As Long Y As Long End Type Private Type Msg hWnd As Long Message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long Private Declare Function WaitMessage Lib "user32" () As Long Private bCancel As Boolean Private Sub ProcessMessages() Dim Message As Msg Do While Not bCancel WaitMessage If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then 'write what you want to do here MsgBox "I am here!" End If DoEvents Loop End Sub Private Sub Form_Load() bCancel = False 'Register hot key ALT+F1 Ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_ALT, vbKeyF1) Me.AutoRedraw = True Show ProcessMessages End Sub
عليك استدعاء UnregisterHotKey عند إنهاء البرنامج ..
الـ HotKey في المثال هو ALT+F1 وبامكانك تغييره كما تشاء ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
يا اخ cipher انا قصدي مو كده انا قصدي اني حطيت الكود
لكن ما زبط معي
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
الكود اشتغل تمام
اقتباسلكن ما زبط معي
أتظن أن هذه الكليمات البسيطة ستساعدنا لمعرفة ما المشكلة لديك؟!!
اشرح بتفصيل اكثر ما المشكلة
بعد ما تشغل البرنامج خليه مثلا في وضع التصغير واضغط ALT+F1 ولاحظ ما الذي سيحدث ...
إن ظهرت الرسالة "I am here " اذا البرنامج شغال وما عليك سوى التغيير في الكود حسب ما تريد...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.
