parazit-x Posté(e) le 22 janvier 2005 Partager Posté(e) le 22 janvier 2005 Hello All ! Alors voilà, j'ai un code, que je rentre dans le bloc note et que j'enregistre sous un .frm... Tout va bien je vois bien l'icone de VB sur le fichier enregistré... Mais quand je veux ouvrir ce fichier dans vb voilà l'erreur que j'ai: Voici le code: Begin VB.Form Form1 BackColor = &H0& Caption = "Window SPY" ClientHeight = 3480 ClientLeft = 2280 ClientTop = 1590 ClientWidth = 4440 LinkTopic = "Form1" ScaleHeight = 3480 ScaleWidth = 4440 Begin VB.Timer Timer1 Interval = 10 Left = 1080 Top = 1560 End Begin VB.TextBox Text9 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 8 Text = "Text9" Top = 3000 Width = 4215 End Begin VB.TextBox Text8 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 7 Text = "Text8" Top = 2640 Width = 4215 End Begin VB.TextBox Text7 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 6 Text = "Text7" Top = 2280 Width = 4215 End Begin VB.TextBox Text6 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 5 Text = "Text6" Top = 1920 Width = 4215 End Begin VB.TextBox Text5 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 4 Text = "Text5" Top = 1560 Width = 4215 End Begin VB.TextBox Text4 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 3 Text = "Text4" Top = 1200 Width = 4215 End Begin VB.TextBox Text3 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 2 Text = "Text3" Top = 840 Width = 4215 End Begin VB.TextBox Text2 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 1 Text = "Text2" Top = 480 Width = 4215 End Begin VB.TextBox Text1 Appearance = 0 'Flat BackColor = &H0& BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &HFFFFFF Height = 285 Left = 120 TabIndex = 0 Text = "Text1" Top = 120 Width = 4215 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Timer1_Timer() WindowSPY Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9 End Sub Qu'est ce que je peux faire pour pouvoir l'ouvrir ? Merci Lien vers le commentaire Partager sur d’autres sites More sharing options...
DwD-Akira Posté(e) le 22 janvier 2005 Partager Posté(e) le 22 janvier 2005 ben je viens de prendre ton code, je l'ai mis (a l'aide du bloc note) dans un fichier test.frm et pour moi ca s'ouvre, sauf que pour lui c'est un module. sinon je viens de regarder une de mes pages frm et tout en haut y'a VERSION 5.00 (parce ke j'ai vb5). j'ai fait un test quand le version 5 est écrit, il repère que c'est un bien une feuille mais quand je met pas version 5 il me dit que c'est un module. edit: bon j'ai mis VERSION 5.00 sur ta feuille et voila ce que ca donne Lien vers le commentaire Partager sur d’autres sites More sharing options...
parazit-x Posté(e) le 23 janvier 2005 Auteur Partager Posté(e) le 23 janvier 2005 Ok, donc le script n'est pas compatible VB6 ?? Lien vers le commentaire Partager sur d’autres sites More sharing options...
Ago Posté(e) le 23 janvier 2005 Partager Posté(e) le 23 janvier 2005 je pige pas trop ... j'ai visual basic 6.0 edition pro sp6 et lorsque je copie ton code dans un fichier test.frm, il arrive à me l'ouvrir .... mais c'est normal qu'il me le mette comme un module etant donné qu'il n'y a pas d'interface visuelle de programmée Lien vers le commentaire Partager sur d’autres sites More sharing options...
parazit-x Posté(e) le 23 janvier 2005 Auteur Partager Posté(e) le 23 janvier 2005 Ok, c'est bon j'arrive à l'ouvrir mais voilà ce que j'ai quand je veux compiler la chose: Lien vers le commentaire Partager sur d’autres sites More sharing options...
Ago Posté(e) le 23 janvier 2005 Partager Posté(e) le 23 janvier 2005 le mieux c'est de faire une nouvelle form et de copier ton texte dedans ... mais la c'est logique qu'il y aie une erreur vu que a n'a pas l'air d'etre du vb6 "Begin VB.Form Form1" Lien vers le commentaire Partager sur d’autres sites More sharing options...
parazit-x Posté(e) le 23 janvier 2005 Auteur Partager Posté(e) le 23 janvier 2005 Ah ok... :8 Merci bcp :) Lien vers le commentaire Partager sur d’autres sites More sharing options...
Ago Posté(e) le 23 janvier 2005 Partager Posté(e) le 23 janvier 2005 en fait ton code il sert simplement à parametrer les options visuelles des controles, et ca tu peux le faire directement dans la fenetre "Properties" Lien vers le commentaire Partager sur d’autres sites More sharing options...
parazit-x Posté(e) le 23 janvier 2005 Auteur Partager Posté(e) le 23 janvier 2005 Regarde, C'est le code entier: Donc deja y'a ça: '************************************** 'Windows API/Global Declarations for :** ' *UPDATED*** Window SPY '************************************** Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Public Declare Function WindowFromPointXY Lib "user32" Alias "WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long Public Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) Public Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long '************************************** ' Name: ***UPDATED*** Window SPY ' Description:***UPDATED*** Gets tons of ' information on the window your mouse is ' over. ' By: Matt Evans ' 'This code is copyrighted and has' limited warranties.Please see http://w ' ww.Planet-Source-Code.com/vb/scripts/Sho ' wCode.asp?txtCodeId=1424&lngWId=1'for details.'************************************** **** Put this In a module **** Function WindowSPY(WinHdl As TextBox, WinClass As TextBox, WinTxt As TextBox, WinStyle As TextBox, WinIDNum As TextBox, WinPHandle As TextBox, WinPText As TextBox, WinPClass As TextBox, WinModule As TextBox) 'Call This In A Timer Dim pt32 As POINTAPI, ptx As Long, pty As Long, sWindowText As String * 100 Dim sClassName As String * 100, hWndOver As Long, hWndParent As Long Dim sParentClassName As String * 100, wID As Long, lWindowStyle As Long Dim hInstance As Long, sParentWindowText As String * 100 Dim sModuleFileName As String * 100, r As Long Static hWndLast As Long Call GetCursorPos(pt32) ptx = pt32.X pty = pt32.Y hWndOver = WindowFromPointXY(ptx, pty) If hWndOver <> hWndLast Then hWndLast = hWndOver WinHdl.Text = "Window Handle: " & hWndOver r = GetWindowText(hWndOver, sWindowText, 100) WinTxt.Text = "Window Text: " & Left(sWindowText, r) r = GetClassName(hWndOver, sClassName, 100) WinClass.Text = "Window Class Name: " & Left(sClassName, r) lWindowStyle = GetWindowLong(hWndOver, GWL_STYLE) WinStyle.Text = "Window Style: " & lWindowStyle hWndParent = GetParent(hWndOver) If hWndParent <> 0 Then wID = GetWindowWord(hWndOver, GWW_ID) WinIDNum.Text = "Window ID Number: " & wID WinPHandle.Text = "Parent Window Handle: " & hWndParent r = GetWindowText(hWndParent, sParentWindowText, 100) WinPText.Text = "Parent Window Text: " & Left(sParentWindowText, r) r = GetClassName(hWndParent, sParentClassName, 100) WinPClass.Text = "Parent Window Class Name: " & Left(sParentClassName, r) Else WinIDNum.Text = "Window ID Number: N/A" WinPHandle.Text = "Parent Window Handle: N/A" WinPText.Text = "Parent Window Text : N/A" WinPClass.Text = "Parent Window Class Name: N/A" End If hInstance = GetWindowWord(hWndOver, GWW_HINSTANCE) r = GetModuleFileName(hInstance, sModuleFileName, 100) WinModule.Text = "Module: " & Left(sModuleFileName, r) End If End Function ****** End OF MODULE ****** 'Put this is notepad and rename is winsp ' y.frm VERSION 5.00 Begin VB.Form Form1 BackColor=&H00000000& Caption ="Window SPY" ClientHeight=3480 ClientLeft =2280 ClientTop=1590 ClientWidth =4440 LinkTopic="Form1" ScaleHeight =3480 ScaleWidth =4440 Begin VB.Timer Timer1 Interval=10 Left=1080 Top =1560 End Begin VB.TextBox Text9 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=8 Text="Text9" Top =3000 Width=4215 End Begin VB.TextBox Text8 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=7 Text="Text8" Top =2640 Width=4215 End Begin VB.TextBox Text7 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=6 Text="Text7" Top =2280 Width=4215 End Begin VB.TextBox Text6 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=5 Text="Text6" Top =1920 Width=4215 End Begin VB.TextBox Text5 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=4 Text="Text5" Top =1560 Width=4215 End Begin VB.TextBox Text4 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=3 Text="Text4" Top =1200 Width=4215 End Begin VB.TextBox Text3 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=2 Text="Text3" Top =840 Width=4215 End Begin VB.TextBox Text2 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=1 Text="Text2" Top =480 Width=4215 End Begin VB.TextBox Text1 Appearance =0 'Flat BackColor=&H00000000& BeginProperty Font Name="Arial" Size=8.25 Charset =0 Weight =700 Underline=0'False Italic =0'False Strikethrough=0'False EndProperty ForeColor=&H00FFFFFF& Height =285 Left=120 TabIndex=0 Text="Text1" Top =120 Width=4215 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Timer1_Timer() WindowSPY Text1, Text2, Text3, Text4, Text5, Text6, Text7, Text8, Text9 End Sub Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Archivé
Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.