الموضوع: اسئل أى سؤال فى الفيجوال بيسك 6 وسأسعى جاهداً للإجابة عليه

Tweet

المشاركة الأصلية كتبت بواسطة كلوشة

ههههههههههههههههه
مين قلك انى حجوز اصلا هو العمر بعزأه ولا ايه
ومتخفش ياسيدى بلاش البرنامج ده يارت كود لقتل الناموس والدبان بس
محتاجه ضرورى بس ياريت تبعد عن الكيماويات عشان قرأت انها بدر الصقور
وتخليها نسور

ههههههههههههه
ايه الكود الغريب اللى انت طالبه ده ؟؟!!

انت مفكر ان ممكن الكود ينط من الكومبيوتر ويروح على الناموسة يضربها

هو ممكن بلغتنا احنا نقول

كود:

If you found law then
Kill it
End If

ههههههههههههه

بس برضة مافيش حاجة مستحيل فى البرمجة

انا كنت شوفت برامج للموبايل وكده بتصدر صوت لطرد الناموس
فأنا أخدت منها الصوت ده وححوله لبرنامج يشتغل على الكومبيوتر

اولاً خد الصوت حمله من هنا لو عايز تشغله من غير برامج
http://www.arba7ak.com/forum/uploade...1283648252.zip

ثانياً الكود بقى لتشغيل البرنامج
بس فى الأول لازم حتحمل نفس الصوت بس بصيغة wav
حمله من هنا
RapidShare: 1-CLICK Web hosting - Easy Filehosting

وحط الكود ده

كود:

        My.Computer.Audio.Play("C:\Documents and Settings\Administrator\Desktop\Noise.wav")

والصوت حيشتغل من خلال البرنامج
بس ما تنساش تغير المسار الموجود فى الكود بمسار ملف الصوت اللى حملته

السلام عليكم


ازيك يا شباب وكل سنة وانتو طيبين .. والكود بتاعك يا صقر شغال مية مية علي فيجوال بيسك 2005

يا سلام بقي لو تظبتة عشان يشتغل علي VisualBasic 6
ساعتها هاخد منك العنوان بتاعك عشان اجي ابوسك




وبالنسبة للموضوع بتاعك دا اللي مفيش حد شافه .. فانا مش هقدر اقرأ .. لان مفيش حد عندة طولة بال لدا كولوا ياعم .. هي احسن حاجة الواحد يجرب بنفسة وبعد كدا يسأل .. كفاية الدراسة اللي احنا هربانين منها


وانا بصراحة احترت بالبرمجة والكبيوتر كله

لغات البرمجة كتيرة وكل لغة فيها ناس عمالقة وحاجات كتير صعب اني اوصلها .. واولهم الفجوال بيسك .. الواحد يشوف البرامج والحاجات اللي عملها الشركات الكبيرة .. يروح متعقد ويسب البرامج دي ... انا مبقتش عارف اكمل فانهي لغة او انهي برنامج

انا شوية اشتغل فالـ PHP
وشوية وجافا
وشوية Visual Basic
وشوية برامج تانية .. زي الفوتوشوب والفاينل كات
وشوية اتابع الفوريكس واحاجات كتير

كل ما امشي شوية فحاجة من دول الاقي الحوار كبير واسيبه .. انا بعدين لو فكرت اتقدم لشركة مش هعرف اقولهم انا بعرف اشتغل علي ايه



ســـــــــــــــــــلام

السلام عليكم


انت اتأخرت المرة دي كتير .. بس اكيد انت عندك ظروف

اول ما تفضي ياريت تحاول تجاوبني علي الاسئلة دي


--------
انا عايز للـ VB 2005.Net
كود يدوس علي زرار من الكيبورد برمجيا

زي الكود القديم بس يكون للـ دوت نت
هو شغال معايا علي VB6
بس انا محتاج كود زية لـVB.Net

وياريت كمان كود يدوس كليك شمال او يمين ... انا عندي كود يحرك الماوس .. بس محتاج كود يدوس كليك كمان

وياريت تحاول تشوفلي كود تغير قائمة استارت .. غير الكود اللي انت جبته .. لانه فيه عيب .. ان بعد ما اقفل البرنامج .. بترجع القائمة للأم القديم



وتشكرا يا باشا

المشاركة الأصلية كتبت بواسطة العقرب

السلام عليكم


ازيك يا شباب وكل سنة وانتو طيبين .. والكود بتاعك يا صقر شغال مية مية علي فيجوال بيسك 2005

يا سلام بقي لو تظبتة عشان يشتغل علي VisualBasic 6
ساعتها هاخد منك العنوان بتاعك عشان اجي ابوسك




وبالنسبة للموضوع بتاعك دا اللي مفيش حد شافه .. فانا مش هقدر اقرأ .. لان مفيش حد عندة طولة بال لدا كولوا ياعم .. هي احسن حاجة الواحد يجرب بنفسة وبعد كدا يسأل .. كفاية الدراسة اللي احنا هربانين منها


وانا بصراحة احترت بالبرمجة والكبيوتر كله

لغات البرمجة كتيرة وكل لغة فيها ناس عمالقة وحاجات كتير صعب اني اوصلها .. واولهم الفجوال بيسك .. الواحد يشوف البرامج والحاجات اللي عملها الشركات الكبيرة .. يروح متعقد ويسب البرامج دي ... انا مبقتش عارف اكمل فانهي لغة او انهي برنامج

انا شوية اشتغل فالـ PHP
وشوية وجافا
وشوية Visual Basic
وشوية برامج تانية .. زي الفوتوشوب والفاينل كات
وشوية اتابع الفوريكس واحاجات كتير

كل ما امشي شوية فحاجة من دول الاقي الحوار كبير واسيبه .. انا بعدين لو فكرت اتقدم لشركة مش هعرف اقولهم انا بعرف اشتغل علي ايه



ســـــــــــــــــــلام

بص انا مش عارف اعتذرلك ازاى على كل التأخير اللى انا بتأخرة ده
بس معلش اعذرنى
بالنسبة للكود للفيجوال بيسك 6
لو تقصد الكود بتاع الضغط على حرف S
فخد الكود ده

كود:

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
If GetKeyState(vbKeyS) = 0 Then
MsgBox "amr"
Timer1.Enabled = False
End If
End Sub

المشاركة الأصلية كتبت بواسطة العقرب

السلام عليكم


انت اتأخرت المرة دي كتير .. بس اكيد انت عندك ظروف

اول ما تفضي ياريت تحاول تجاوبني علي الاسئلة دي


--------
انا عايز للـ VB 2005.Net
كود يدوس علي زرار من الكيبورد برمجيا

زي الكود القديم بس يكون للـ دوت نت
هو شغال معايا علي VB6
بس انا محتاج كود زية لـVB.Net

وياريت كمان كود يدوس كليك شمال او يمين ... انا عندي كود يحرك الماوس .. بس محتاج كود يدوس كليك كمان

وياريت تحاول تشوفلي كود تغير قائمة استارت .. غير الكود اللي انت جبته .. لانه فيه عيب .. ان بعد ما اقفل البرنامج .. بترجع القائمة للأم القديم



وتشكرا يا باشا

كود الضغط على زرار برمجياً
هو نفس الكود اللى كنت كتبته قبل كده بتاع sendkeys.send
وده كود انا مجربة على الفيجوال 2008

كود:

        If Me.TextBox1.Text.Trim = "13" Then
            SendKeys.Send("{TAB}")
        End If

لو كان مكتوب فى التكست 13 حيضغط على زرار tab

وكود الضغط على كليك يمين او شمال

كود:

Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
    Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' middle button down
    Public Const MOUSEEVENTF_MIDDLEUP = &H40 ' middle button up
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8 ' right button down
    Public Const MOUSEEVENTF_RIGHTUP = &H10 ' right button up
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If Me.TextBox1.Text.Trim = "13" Then
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        End If
    End Sub

الكود مكتوب قدامه الشرح أعتقد حتفهمه بسهولة

وبالنسبة لكود تغير زر ابدا

بص ده كود لفيجوال 6
حاولت أجربة بس مش شغال
بس اللى كاتب الكود بيقول انه بيشتغل على ويندوز xp بس وانا عندى 7
خد جربة بس انا مجربتهوش خالص

كود:

Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Sub SetStartCaption(str As String)
   Dim StartBar As Long
   Dim StartBarText As Long
   Dim sCaption As String
   StartBar = FindWindow("Shell_TrayWnd", vbNullString)
   StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
   sCaption = Left(str, 5)
   SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
   Exit Sub
   End Sub
Private Sub Command1_Click()
SetStartCaption Text1.Text
End Sub

وبحثت كتير لكن معظم الأكواد نفس الفكرة وبتقعد لفترة وبعدين بترجع لطبيعتها تانى
والكود اللى فوق ده مش متأكد منه لإنه مشتغلش عندى اصلاً


وأسف يا باشا على التأخير

يا باشا ولا يهمك .. اتاخر زي ما انت عايز ..

انا جربتهم وشغالين .. ما عدا الاخير مجربتوش لان عندي كتير بس تبع vb6

علي العموم ... مش مهم النقطة دي .. وتشكر يا باشا .. ولو احتجت اي مساعدة هسألك فيها

وانت برضوا لو عايز مني مساعدة انا تحت امرك


سلام

السلام عليكم

شوفت .. مقدرتش استغني عنك

عندي سؤال خفيف اوي

-------

انا عندي كود لتحريك الماوس
بس الكود دا فيه مشكلة .. معرفش ايه هي
لما اجي اجربة بيقولي ان فية حاجة غلط .. بس مش عارف ايه هي
وكمان بيحرك الماوس يمين وشمال بس .. وبيخلي الماوس فوق خااالص

الكود اهو

كود:

         Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long





وهذا هو الامر:     
    
            Dim a
            a = SetCursorPos(765, 350)

ياريت تشوفلي ايه المشكلة فالكود دا ولو معرفتش حاول تشوفلي كود غيرة ... وشكرا ليك اوي اوي اوي علي الاكواد اللي فاتت

سلام

وعليكم السلام
ربنا يخليك يا باشا ولا انا اقدر استغنى عنك
وبالنسبة للكود
فالكود شغال زى الفل على vb6 ومش بيطلع اخطاء ولا اى حاجة
وبيحرك الماوس فعلاً ومش بتطلع أخطاء

لكن بالنسبة للـ vb.net فهو مطلعش خطأ لكن كان بيحرك الماوس لفوق ومش شغال كويس

بص خد الكود ده أفضل للدوت نت

حتغير الجزء الأول من الكود بالجزء ده

Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Int32, ByVal Y As Int32) As Boolean

والباقى زى ما هو وجرب وقولى حصل ايه

ايوه انا كنت عايزة للدوت نت

بس انا مش عارف اشكرك ازاي .... رديت عليا فاسرع وقت وجبتلي المطلوب

بجد شكرا شكرا شكرا

تشكر يا باشا وتسلم

بقولك يا صقر

كنت عايز اعرف حاجة


في لعبة عندي وانا بلعبها لقيت رسالة خطأ زي اللي بتطلع واحنا بنصمم برنامج .. ولقيت عنوان الرسالة فيه كلمة ( Visual C++)

اتفاجئت من الحوار دا ... اول مرة اعرف ان الالعاب بتتعمل فالفيجوال برضوا

ياريت لو تعرف ازاي الالعاب بتتعمل بالفيجوال تقولي .. وازاي الشخصيات او الكائنات اللي بتبقي 3D فالفيجوال

سلام