دوال +أدوات (مشاركات جماعية)

اخي ابو عزام :

تحية طيبة ............. وبعد

اولا اود ان اشكرك على هذا الموضوع

ثم اني كان بودي ادلي بدلوي في هذا الموضوع ، ولكن العين بصيرة واليد قصيرة :(

انا يادوب مبتدى فيجول بيسك :( :(

ولكن اتمنى ان لايبخلوا علماء الفيجول علينا في هذا المجال .

وشكرا :)

شكراً لك على هذا الموضوع عزيزي

كنت أفكر بوضع موضوع مشابه أعرض فيه بعض الأدوات التي عملتها .

ولكني لا أعرف كيف يمكنني وضع الملفات على الأنترنت أي عمل رابطة يتمكن أعضاء المنتدى من أخذ الأدوات منها.

اشرح لي كيف ذلك أكون شاكراً لك وأنزل أدواتي لتروها.

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

;)

شكراً لك أخي أبو عزام ولكني جربت ذلك من قبل في عدة مواقع منها :

www.ayna.com

www.jeeran.com

ولكني عندما أحاول أخذ الملفات تظهر في كل مرة رسالة مختلفة ( لا يمكن عرض الصفحة ، لا يمكن الوصول إلى الملقم ، لا توجد صلاحية لعرض محتويات الصفحة، ...)

اعذرني أخي لأنني خرجت عن موضوعك ولكن...:o :o

السلام عليكم

اعذروني على التأخير لآني كنت مشغول

هذه أداة لتحويل الصوت إلى نص ولكن حجمها كبير 25 ميجا بايت حملوها في أوقات متعددة باستخدام برنامج داوون أكسيليتور5 أو أي برنامج تكميل التحميل

http://www.unitedresearchlabs.com/vexp005.zip

;)

وهذه أداة أخرى ياليت تعجبكم

أداة البريد مع المثال

http://members.xoom.com/MicroTech/POPMail.zip

;)

طريقة التحكم بالتتطبيقات عن بعد ومعرفة موعد إغلاقها

Option Explicit

'Structures declaration

Private Type STARTUPINFO

cb As Long

lpReserved As String

lpDesktop As String

lpTitle As String

dwX As Long

dwY As Long

dwXSize As Long

dwYSize As Long

dwXCountChars As Long

dwYCountChars As Long

dwFillAttribute As Long

dwFlags As Long

wShowWindow As Integer

cbReserved2 As Integer

lpReserved2 As Long

hStdInput As Long

hStdOutput As Long

hStdError As Long

End Type

Private Type PROCESS_INFORMATION

hProcess As Long

hThread As Long

dwProcessID As Long

dwThreadID As Long

End Type

'Function declaration

Private Declare Function WaitForSingleObject Lib "kernel32.dll" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Private Declare Function CreateProcessA Lib "kernel32.dll" (ByVal lpApplicationName As Long, ByVal lpCommandLine As _

String, ByVal lpProcessAttributes As Long, ByVal _

lpThreadAttributes As Long, ByVal bInheritHandles As Long, _

ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, _

ByVal lpCurrentDirectory As Long, lpStartupInfo As _

STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long

'Constants

Private Const NORMAL_PRIORITY_CLASS = &H20&

Private Const INFINITE = -1&

يوضع هذا الكود في وحدة نمطية Module

Module

Public Function ExecuteTask(Path As String, Optional Parameters As String = "") As Long

Dim proc As PROCESS_INFORMATION

Dim startup As STARTUPINFO

Dim ret As Long

Dim cmdline As String

cmdline = Path

If Trim(Parameters) <> "" Then

cmdline = cmdline & " """ & Parameters & """"

End If

' Initialize the STARTUPINFO structure:

startup.cb = Len(startup)

' Start the application:

ret = CreateProcessA(0&, cmdline, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, startup, proc)

ExecuteTask = proc.hProcess

End Function

Public Function IsTaskRunning(taskID As Long) As Boolean

Dim ret As Long

If taskID = 0 Then Exit Function

ret = WaitForSingleObject(taskID, 0)

IsTaskRunning = (ret <> 0)

If Not IsTaskRunning Then

ret = CloseHandle(taskID)

taskID = 0

End If

End Function

Usage

يوضع هذا الكود في القسم العام للنموذج

'the current task ID

Public taskID As Long

الزر الأول

Private Sub Command1_Click()

taskID = ExecuteTask("Notepad")

End Sub

الزر الثاني

Private Sub Command2_Click()

If IsTaskRunning(taskID) Then

MsgBox "Task running", vbInformation

Else

MsgBox "Task not running", vbExclamation

End If

End Sub

;)

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

جربوها

الأداة

;)

هذه أداة للتحكم بالملفات مثل أدوات التحكم وملفات DLL وExe وغيرها

خذ هدية مني(f)

http://download.cnet.com/downloads/0,10152...485-110-6535920