Laymanball

How to using sound & video DShow in the autoit?, i wanted sample codes. thanks

Free download: xVideo.dll Click here xVideoFunctions.au3 (#Include) ..post next time. xVideoPlayerSample (Gui)..post next time. Info: MyScript not all error!, because clone in the BASS.

Modify code for safety, delete minimize and show all onExit. #NoTrayIcon #cs=============Info================ createdate:14/AUG/2011 name:DeskTask Manager type:GuiUserInterfade(Freeware Demo) skin:Glass discription:State on screen support:WindowsXP designby:Sak2005 #ce================================= #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Include <WinAPI.au3> #Include <GuiButton.au3> Opt("MustDeclareVars", 1) Global $title = 'Desktop Task Manager' Global $hForm, $Btn_HTV, $Btn_HTB, $Btn_HSB, $Btn_HDT Global $nMsg, $iButton, $btn, $i _main() Func _main() $hForm = GUICreate($title, 280, 130, 370, 213, $WS_SYSMENU, BitOR($WS_EX_TOPMOST,$WS_EX_LAYERED)) GUISetBkColor(0xABABAB) $Btn_HTV = GUICtrlCreateButton("Hide TaskViewIcon", 20, 20, 110, 25, $WS_GROUP) GUICtrlSetCursor (-1, 0) $Btn_HTB = GUICtrlCreateButton("Hide Taskbar", 150, 20, 110, 25, $WS_GROUP) GUICtrlSetCursor (-1, 0) $Btn_HSB = GUICtrlCreateButton("Hide Start Button", 20, 60, 110, 25, $WS_GROUP) GUICtrlSetCursor (-1, 0) $Btn_HDT = GUICtrlCreateButton("Hide Desktop", 150, 60, 110, 25, $WS_GROUP) GUICtrlSetCursor (-1, 0) GUISetState() _FadeIn() If @OSVersion <> 'Win_XP' Then MsgBox(48, "Warning!", "Support:WindowsXP") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE $btn = MsgBox(36, "", "Do you wanted to Exit?.") If $btn = 6 Then ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]") ControlShow("[Class:Shell_TrayWnd]", "", "") ControlShow("[Class:Shell_TrayWnd]", "", 304) ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]") _FadeOut() Exit EndIf Case $Btn_HTV $iButton = _GUICtrlButton_GetText($Btn_HTV) Select Case $iButton='Hide TaskViewIcon' $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTV)) If $btn = 1 Then ControlHide("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]") _GUICtrlButton_SetText($Btn_HTV, 'Show TaskViewIcon') EndIf Case $iButton='Show TaskViewIcon' MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTV)) ControlShow("[Class:Shell_TrayWnd]", "", "[CLASS:ToolbarWindow32; INSTANCE:2]") _GUICtrlButton_SetText($Btn_HTV, 'Hide TaskViewIcon') EndSelect Case $Btn_HTB $iButton = _GUICtrlButton_GetText($Btn_HTB) Select Case $iButton='Hide Taskbar' $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HTB)) If $btn = 1 Then ControlHide("[Class:Shell_TrayWnd]", "", "") _GUICtrlButton_SetText($Btn_HTB, 'Show Taskbar') EndIf Case $iButton='Show Taskbar' MsgBox(64, "", _GUICtrlButton_GetText($Btn_HTB)) ControlShow("[Class:Shell_TrayWnd]", "", "") _GUICtrlButton_SetText($Btn_HTB, 'Hide Taskbar') EndSelect Case $Btn_HSB $iButton = _GUICtrlButton_GetText($Btn_HSB) Select Case $iButton='Hide Start Button' $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HSB)) If $btn = 1 Then ControlHide("[Class:Shell_TrayWnd]", "", 304) _GUICtrlButton_SetText($Btn_HSB, 'Show Start Button') EndIf Case $iButton='Show Start Button' MsgBox(64, "", _GUICtrlButton_GetText($Btn_HSB)) ControlShow("[Class:Shell_TrayWnd]", "", 304) _GUICtrlButton_SetText($Btn_HSB, 'Hide Start Button') EndSelect Case $Btn_HDT $iButton = _GUICtrlButton_GetText($Btn_HDT) Select Case $iButton='Hide Desktop' $btn = MsgBox(33, "", _GUICtrlButton_GetText($Btn_HDT)) If $btn = 1 Then ControlHide("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]") _GUICtrlButton_SetText($Btn_HDT, 'Show Desktop') EndIf Case $iButton='Show Desktop' MsgBox(64, "", _GUICtrlButton_GetText($Btn_HDT)) ControlShow("[CLASS:Progman]", "", "[CLASS:SysListView32; INSTANCE:1]") _GUICtrlButton_SetText($Btn_HDT, 'Hide Desktop') ControlSend("[CLASS:Progman; TITLE:Program Manager]", "", "", "{F5}") EndSelect EndSwitch WEnd EndFunc Func _FadeIn() For $i = 0 To 255 Step 4 _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA)) Sleep(1) Next EndFunc Func _FadeOut() For $i = 255 To 0 Step -4 _WinAPI_SetLayeredWindowAttributes($hForm, 0xABABAB, $i, BitOR($LWA_COLORKEY, $LWA_ALPHA)) Sleep(1) Next EndFunc ;==>desktaskmanager.

VB.net Sample code Audio & Video Player, Using axVLC.dll component. You must install VLC version 0.8.6 Click here (Other version not work) When setup finish, You'll see name vlc DLL into the Reference Com Choosed Add DLL v2 into the ToolBox ( DLL v1 not work) Example: Mini VLC Player Imports System Imports System.Windows.Forms Public Class Form1 Inherits Form Private openfiles As OpenFileDialog Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load PlaylistCreated(ListBox1) TrackBar1.Maximum = 100 TrackBar1.Value = 100 TrackBar1.TickFrequency = TrackBar1.Maximum / 100 * 10 AxVLCPlugin21.audio.Volume = 100 End Sub Sub New() MyBase.New() Me.StartPosition = FormStartPosition.CenterScreen InitializeComponent() Me.Text = "MINI ALC PLAYER" openfiles = New OpenFileDialog openfiles.FileName = Nothing openfiles.Filter = "Support All Media Files(*.*)|*.*" openfiles.Multiselect = True End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If openfiles.ShowDialog = Windows.Forms.DialogResult.OK Then PlaylistAppendItem(openfiles.FileNames) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ListBox1.SelectedItem = String.Empty Then Return AxVLCPlugin21.playlist.items.clear() If AxVLCPlugin21.playlist.items.count = 0 Then AxVLCPlugin21.playlist.add(PlaylistSelectedItem()) AxVLCPlugin21.playlist.play() Else MsgBox("Error!", MsgBoxStyle.Exclamation, "") End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If ListBox1.SelectedItem = String.Empty Then Return AxVLCPlugin21.playlist.togglePause() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If Not AxVLCPlugin21.playlist.isPlaying Then Return AxVLCPlugin21.playlist.stop() AxVLCPlugin21.playlist.items.clear() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged PlaylistSelectedItem() End Sub Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick Button2.PerformClick() End Sub Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll AxVLCPlugin21.audio.Volume = TrackBar1.Value End Sub '=====================Playlist Created======================== Private playlist As New ListBox Private subCtlListBox As New ListBox Public Sub PlaylistCreated(ByVal ctlListBox As ListBox) subCtlListBox = ctlListBox ctlListBox.Controls.Add(playlist) playlist.Visible = False ctlListBox.HorizontalScrollbar = True End Sub Public Sub PlaylistAppendItem(ByVal FileNames As String()) For Each items As String In FileNames playlist.Items.Add(items) subCtlListBox.Items.Add(IO.Path.GetFileName(items)) Next If subCtlListBox.SelectedIndex = -1 Then subCtlListBox.SetSelected(0, True) playlist.SelectedIndex = subCtlListBox.SelectedIndex End If End Sub Public Function PlaylistSelectedItem() As String Dim ind As Integer = subCtlListBox.SelectedIndex playlist.SelectedIndex = ind Return playlist.SelectedItem End Function End Class

Two ways for using AutoItX3 into the vb.net 1. References browse autoitx3.dll 2. Created Object same as autoitx3 sample code. If you wanted register autoitx3 for .net namespace, Copy and paste autoitx3;dll into System32 folder and run register dll now. ================================================================================= When register dll finish , will see name autoitx3 into reference Com .net =================================================================================== Download: AutoItX3DLL_Register.exe Click here =================================================================================== Example: Reference Browse and Reference Com Public Class Form1 Inherits System.Windows.Forms.Form Private WithEvents refBtn As System.Windows.Forms.Button Private WithEvents comBtn As System.Windows.Forms.Button Public Sub New() MyBase.New() InitializeComponent() refBtn = New System.Windows.Forms.Button comBtn = New System.Windows.Forms.Button refBtn.Text = "Reference Browse" comBtn.Text = "Reference Com" refBtn.Width = 120 comBtn.Width = refBtn.Width refBtn.Location = New System.Drawing.Point(20, 100) comBtn.Location = New System.Drawing.Point(150, 100) refBtn.Cursor = Cursors.Hand comBtn.Cursor = Cursors.Hand Me.Controls.AddRange(New Control() {refBtn, comBtn}) End Sub Private Sub refBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles refBtn.Click Dim oAutoIt As New AutoItX3Lib.AutoItX3 oAutoIt.ToolTip("Hello World!") oAutoIt.Sleep(1000) oAutoIt.ToolTip("") End Sub Private Sub comBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comBtn.Click Dim oAutoIt As System.Object oAutoIt = CreateObject("AutoItX3.Control") oAutoIt.ToolTip("Hello World!") oAutoIt.Sleep(1000) oAutoIt.ToolTip("") oAutoIt = Nothing End Sub End Class ================================================================================= Sample code : Using Dll Call Imports System.Runtime.InteropServices Public Class Form1 <DllImport("AutoItX3.dll", CharSet:=CharSet.Auto, EntryPoint:="AU3_ToolTip")> _ Private Shared Function ToolTip(ByVal szTip As String, ByVal nX As Integer, ByVal nY As Integer) As Boolean End Function Public Shared Sub ToolTip(ByVal szTip As String) ToolTip(szTip, -2147483647, -2147483647) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ToolTip("Hello World!") System.Threading.Thread.Sleep(1000) ToolTip("") End Sub End Class

If..on the desktop full items data , i 'll hide it.

My project : Desktop Task Manager , Using DLLs I created DLLs for this program, Using vb.net programming. Using.. AutoITX3.dll , AutoItX3Lib.vb and References Com. Thread: 1. Show - Hide Desktop Icons 2. Show - Hide Start Menu Button 3. Show - Hide TaskBar Icons DesktopTaskManager_setup.exe Click here

Copy file AutoItX3.dll and Paste in to System32 folder and register dll file and using command with add Reference Com. Choosed AutoItX3 1.0 Type Library. Exsample some command in AutoItX3Lib to VB.net Imports AutoItX3Lib Public Class Form1 Private oAutoIt As New AutoItX3 WithEvents btn1 As New System.Windows.Forms.Button Public Sub New() InitializeComponent() Me.CenterToScreen() btn1.Text = "ToolTip Test" btn1.Cursor = Cursors.Hand btn1.Location = New Point(100, 100) Me.Controls.Add(btn1) End Sub Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click Try oAutoIt.ToolTip("Hello World!", 450, 300) oAutoIt.Sleep(2000) oAutoIt.ToolTip("") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class OR Public Class Form1 Private oAutoIt As Object WithEvents btn1 As New System.Windows.Forms.Button Public Sub New() InitializeComponent() Me.CenterToScreen() btn1.Text = "ToolTip Test" btn1.Cursor = Cursors.Hand btn1.Location = New Point(100, 100) Me.Controls.Add(btn1) End Sub Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click Try oAutoIt = Microsoft.VisualBasic.CreateObject("AutoItX3.Control") oAutoIt.ToolTip("Hello World!", 450, 300) oAutoIt.Sleep(2000) oAutoIt.ToolTip("") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class OR Imports System.Runtime.InteropServices Public Class Form1 WithEvents btn1 As New System.Windows.Forms.Button <DllImport("AutoItX3.dll", CharSet:=CharSet.Auto)> _ Private Shared Sub AU3_ToolTip(ByVal strTip As String, ByVal x As Integer, ByVal y As Integer) End Sub Public Shared Sub ToolTip(ByVal strTip As String, ByVal x As Integer, ByVal y As Integer) AU3_ToolTip(strTip, x, y) Return End Sub Public Shared Sub ToolTip(ByVal strTip As String) AU3_ToolTip(strTip, x:=0, y:=0) Return End Sub Public Sub New() InitializeComponent() Me.CenterToScreen() btn1.Text = "ToolTip Test" btn1.Cursor = Cursors.Hand btn1.Location = New Point(100, 100) Me.Controls.Add(btn1) End Sub Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click Try ToolTip("Hello World!", 450, 300) Threading.Thread.Sleep(2000) ToolTip("") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class

Delphi ComObject unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses ComObj; //Import Source\Rtl\Common\ComObj.pas procedure TForm1.Button1Click(Sender: TObject); var oAutoIt: Variant; begin oAutoIt:= CreateOleObject('AutoItX3.Control'); oAutoIt.ToolTip('Hello World!', 450, 350); end; end.

Load Library in the memory Delphi Dinamic Link Library library DllTest; uses SysUtils, Classes, Forms, ComObj, Windows; var SomeBuffer : Pointer; procedure MyDLLProc(Reason: Integer); begin if Reason = DLL_PROCESS_DETACH then { DLL is unloading. Cleanup code here. } FreeMem(SomeBuffer); end; procedure ToolTip(strTip : string; x : integer; y : integer); var oAutoIt : variant; begin oAutoIt := CreateOleObject('AutoItX3.Control'); oAutoIt.ToolTip(strTip, x, y); end; { More DLL code here that uses SomeBuffer. } exports ToolTip; begin { Assign our DLLProc to the DLLProc global variable. } DLLProc := @MyDLLProc; SomeBuffer := AllocMem(1024); end. Exsample: procedure TForm1.Button1Click(Sender: TObject); type TToolTip = procedure(strTip : string; x : integer; y : integer); var DLLInstance : THandle; ToolTip : TToolTip; begin DLLInstance := LoadLibrary('DllTest.dll'); if DLLInstance = 0 then begin MessageDlg('Unable to load DLL.', mtError, [mbOK], 0); Exit; end; @ToolTip := GetProcAddress(DLLInstance, 'ToolTip'); if @ToolTip <> nil then ToolTip('Hello World!', 0, 0) else MessageDlg('Unable to locate procedure.', mtError, [mbOK], 0); FreeLibrary(DLLInstance); end; end.

Add File AutoItX3.dll in system32 folder and rightClick AutoItX3.dll file. Choosed Register. Endjoy.

Scripting for Call using file AutoItX3.dll without dll register. Add AutoItX3.dll in to a debug folder of project to creatting. Sample scrit to use: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If My.Computer.FileSystem.FileExists(String.Concat(My.Computer.FileSystem.CurrentDirectory, "\AutoItX3.dll")) Then AutoItx3Lib.Run("calc.exe") Else MsgBox("Pleased add file dll into the debug folder.") Me.Dispose() End If End Sub End Class Public Class AutoItx3Lib Private Declare Auto Function AU3_Run Lib "AutoItx3.dll" Alias "AU3_Run" (ByVal strRun As String, ByVal strDir As String, ByVal nShowFlags As Integer) As Integer Public Shared Function Run(ByVal fileName As String) As Integer Return AU3_Run(fileName, "", 1) End Function End Class

Using AutoitX.dll in the vb.net Register dll file in the system directory (c:windiwssystem32). Dll file will auto add into the reference objectcom vb.net solusion. 2ways in the writting code is reference dll and using scriptting host

Dowload: AutoItX3Dll Auto Register AutoRegisterAutoItX3Dll: Click here Automatic install dll file to system32 directory and registering dll to use. You'll see dll lib add in the reference com. You must Import Class lip on the class form. Example: VB.NET run calculator application. Imports AutoItX3Lib Public Class Form1 Private oAutoItX As New AutoItX3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click oAutoItX.Run("calc.exe") End Sub End Class

Answer: Use this script. $handle = WinGetHandle("[CLASS:ACTIVE]")