|
Registrieren
Login
Webformular ausfüllen checkboxen Problem
Verfasst am: 31.12.2010, 13:46 Aufrufe: 638
Hi
hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen
http://www.spin.de bei der Registrierung
bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve ...
Webformular ausfüllen checkboxen Problem
Verfasst am: 25.11.2010, 17:50 Aufrufe: 638
Hi
hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen
http://www.spin.de bei der Registrierung
bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve ...
webbrowser Quellcode
Verfasst am: 07.11.2010, 12:42 Aufrufe: 543
Jetzt habe ich doch noch eine weitere Frage dazu:
Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus:
Private Sub cmdUpload_Click()
Dim aPostData() As Byte
Dim vPostData As Variant
Dim vUrl As Variant
Dim vHeaders As Variant
Dim strText As String
Dim strContentHeader As String
Dim strBody As String
Dim nFile As Integer
Me.txtFile1.Text = "D& ...
Fenstergröße limitieren
Verfasst am: 18.06.2009, 11:51 Aufrufe: 831
... ate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long)Private Type ...
DirDialog (Ordner im Dialog auswählen)
Verfasst am: 18.06.2009, 11:03 Aufrufe: 1093
Erläuterung der Type nutzung
Verfasst am: 15.06.2009, 11:54 Aufrufe: 933
Thema: Types nutzenAutor: exe-cuteHier erleutere ich euch das arbeitem mit einem Type.Der Type:Private Type Test<br /> FormWidth As Long<br /> StartTime As String<br />End Type<br />Dim t As TestDieser Type beinhaltet 2 Variablen. Einen Long & einen string.Private Sub Form_Load()<br /> t.
Alternate Data Stream nutzen
Verfasst am: 15.06.2009, 11:29 Aufrufe: 1034
Private Const OF_EXIST = &H4000<br />Private Const OFS_MAXPATHNAME = 128<br />Private Type OFSTRUCT<br />cBytes As Byte<br />fFixedDisk As Byte<br />nErrCode As Integer<br />Reserved1 As Integer<br />Reserved2 As Integer<br />szPathName(OFS_MAXPATHNAME) As Byte<br />End TypeMit diesen Apis (OpenFile und DeleteFile) können wir jetzt ohne Probleme auf die ve ...
MP3 aus Ressourcen abspielen
Verfasst am: 17.05.2009, 11:07 Aufrufe: 687
Hallo,
Kann mir jemand helfen?
Ich möchte MP3 Dateien aus den ressourcen abspielen.
Ich habe es so versucht:
Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpszCommand As String, ByVal lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Form1_FormClosing(ByV ...
[Text] Datenbank per Laufzeit erstellen
Verfasst am: 03.05.2009, 11:38 Aufrufe: 2107
Thema: Datenbank per Laufzeit erstellen
Autor: ZiG
Index:
1. Einleitung
2. Deklarationen
3. Datenbank erstellen
4. Tabellen und Felder
5. Index erstellen
6. Datenbank öffnen
7. Passwortschutz
1. Einleitung
Hallo alle miteinander. Hab doch mal wieder Lust auf tutorials schreiben und hab mir gedacht, ich werde euch mal beschreiben wie man eine Datenbank per Laufzeit erstellen kann.
Ist ja nicht se ...
[B] Sandboxie; Norman Sandbox; VM Detection Demo Source
Verfasst am: 13.04.2009, 13:38 Aufrufe: 2002
... nti sandbox von zig gekreuzt und verbunden:
als modul:
Private Const DFP_RECEIVE_DRIVE_DATA = &H7C088
Private Const FILE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_EXISTING = 3
Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Long = 260
Private Type ...
Screenprogramm schreiben - TuT
Verfasst am: 01.09.2008, 16:15 Aufrufe: 1689
Hier biete ich ein TuT an , wie man ein Screen Programm schreibt.bitte Codes genau durchlesen , zum lernen , nich C&P...Fangen wir an , als erstes brauchen wir ein Module , das die ganzen Funktionen deklariert.Modul einfügen mit folgendem Code:Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long<br />Declare Sub keybd_ev ...
Attribute einer Klasse mit Reflection auswerten
Verfasst am: 04.08.2008, 12:12 Aufrufe: 1655
bmp infos auslesen - funktion
Verfasst am: 30.07.2008, 12:08 Aufrufe: 700
hi, ich hab für vb6 eine tolle funktion gefunden um infos aus einer datei zu fischen:Visual Basic: [code]Option Explicit ' Info-StrukturPrivate Type BitmapHeaderA KennzeichenDerBitmapDatei As Integer DateigrößeInByte As Long ReserviertA As Integer ReserviertB As Integer OffsetDesErstenGrafikbytes As Long Strukturgröße As Long BreiteInPixel As Long HöheInPixel As Long Farbebenen As Integer FarbtiefeInBit As ...
Speichern?
Verfasst am: 28.07.2008, 18:43 Aufrufe: 959
Speichern?
Verfasst am: 28.07.2008, 16:54 Aufrufe: 959
Visual Basic: das is das rautezeichen über der textbox (das 2. von rechts)
APIS mit LoadLibrary
Verfasst am: 25.05.2008, 11:35 Aufrufe: 1676
... y Lib "kernel32" (ByVal hLibModule As Long) As LongPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes As Long)Private mlngParameters() As Long 'list of parametersPrivate mlngAddress As Long 'address of function to callPrivate mbytCode() As Byte 'buffer for assembly codePrivate mlngCP As Long 'used to keep track of latest byte added to codePrivate Type ...
GetModuleBaseAddress - Möchte Adresse einer DLL auslesen
Verfasst am: 23.05.2008, 14:52 Aufrufe: 1243
(c0re;2704)Der Typ ist dieser:Visual Basic: Danke für die Übersetzung, ich hatte es ziemlich ähnlich und bin auch auf den zitierten Teil im Internet gestoßen nur haut das nicht so hin. Also entweder weiß ich nicht wo diese Methode (bin mir nicht mal sicher ob´s eine ist) rein soll, oder das ist nicht für VB .Net gesehen... Abgesehen davon, dass Private Type laut meinem Compiler nicht mehr unterstützt wird und ich sta ...
GetModuleBaseAddress - Möchte Adresse einer DLL auslesen
Verfasst am: 22.05.2008, 20:16 Aufrufe: 1243
Der Typ ist dieser:Visual Basic: // Edit //Falls du Probleme mit den Datentypen hast, nimm Long statt DWORD und HANDLE und String statt Char. // Edit //Ich übersetze die Funktion eben für dich. 
Visual Basic: [code]Function GetModuleBaseAddress(ByVal iProcId As Long, ByVal DLLName As String) As Long Dim hSnap As Long Dim xModule As MODULEENTRY32 hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPMODUL ...
Funktionsweise einer Sin Console
Verfasst am: 06.05.2008, 16:18 Aufrufe: 1068
... ;br />Private Const VER_PLATFORM_WIN32_NT As Long = 2<br />Private Const VER_NT_SERVER As Long = &H3<br />Private Const VER_NT_WORKSTATION As Long = &H1<br />Private Const VER_SUITE_PERSONAL As Long = &H200<br />Private Const VER_SUITE_DATACENTER As Long = &H80<br />Private Const VER_SUITE_ENTERPRISE As Long = &H2<br /> <br />' der alte Standard<br />Private Type ...
unrar.dll
Verfasst am: 03.05.2008, 15:41 Aufrufe: 1239
[B] File Shredder Modul
Verfasst am: 21.04.2008, 18:54 Aufrufe: 2225
... #
' ###############################
Option Explicit
'Apis
Private Declare Function GetInputState Lib "user32" () As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'Deklarationen
Private Type ...
Dll injection/uninjection
Verfasst am: 20.04.2008, 12:08 Aufrufe: 1450
... ; British_Intel<br />'<br />'=============================================================================================================<br />Option Explicit<br /><br />Private Type ...
Datenbankprogrammierung Teil 2 (DAO)
Verfasst am: 17.04.2008, 11:37 Aufrufe: 1924
Thema: Datenbank per Laufzeit erstellenAutor:ZiGIndex:1. Einleitung2. Deklarationen3. Datenbank erstellen4. Tabellen und Felder5. Index erstellen6. Datenbank öffnen7. Passwortschutz1. EinleitungHallo alle miteinander. Hab doch mal wieder Lust auf tutorials schreiben und hab mir gedacht, ich werde euch mal beschreiben wie man eine Datenbank per Laufzeit erstellen kann.Ist ja nicht sehr schön, wenn man die Datenbank vo ...
[MySQL] - Bitte lesen
Verfasst am: 11.04.2008, 19:36 Aufrufe: 816
Form ohne Rand mit Maus größer u. kleiner ziehen?
Verfasst am: 07.04.2008, 08:57 Aufrufe: 802
Der Button (hier eine Picturebox) wird naturlich auch angepasst:
x-Pos = Formularbreite - Pictureboxbreite
y-Pos = Formularhöhe - Pictureboxhöhe
' 1 Picturebox, unten rechts angeordnet
Option Explicit
' PointAPI
Private Type POINTAPI
X As Long
Y As Long
End Type
' API
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Priva ...
Eine bestimmte Zeile auslesen
Verfasst am: 11.03.2008, 18:46 Aufrufe: 1004
benutz dieses modul:
'###modIniZugriff
Option Explicit
' Private Type SettingPair
' ValName As String
' Value As String
' End Type
' Einen Wert aus einer INI Datei lesen
Public Function GetIniValue(ByVal File As String, ByVal Section As String, ByVal ValName As String) As Variant
Dim temp As String
Dim actSection As String
Dim ff As Integer
On Error GoTo ErrOut
...
Hardware ID der Festplatte
Verfasst am: 29.02.2008, 21:20 Aufrufe: 1667
... LE_SHARE_READ = &H1
Private Const FILE_SHARE_WRITE = &H2
Private Const OPEN_EXISTING = 3
Private Const CREATE_NEW = 1
Private Const INVALID_HANDLE_VALUE = -1
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const IDENTIFY_BUFFER_SIZE = 512
Private Const OUTPUT_DATA_SIZE = IDENTIFY_BUFFER_SIZE + 16
'GETVERSIONOUTPARAMS contains the data returned
'from the Get Driver Version function
Private Type ...
[Text] Erläuterung der Type nutzung
Verfasst am: 24.02.2008, 21:11 Aufrufe: 1589
Hier erleutere ich euch das arbeitem mit einem Type.
Der Type:
Private Type Test
FormWidth As Long
StartTime As String
End Type
Dim t As Test
Dieser Type beinhaltet 2 Variablen. Einen Long & einen string.
Private Sub Form_Load()
t.FormWidth = Me.Width
t.StartTime = Now
End Sub
Beim Laden der form derwem dem type nun werte zugewiesen.
Diese koennen wir zum beisp ...
[Anti Leak v1] MAC-Addresse
Verfasst am: 16.02.2008, 17:49 Aufrufe: 921
... s As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" ( _
ByVal hHeap As Long, _
ByVal dwFlags As Long, _
lpMem As Any) As Long
Private Const NCBASTAT = &H33
Private Const NCBNAMSZ = 16
Private Const NCBRESET = &H32
Private Const HEAP_ZERO_MEMORY = &H8
Private Const HEAP_GENERATE_EXCEPTIONS = &H4
Private Type ...
Fenstergröße limitieren
Verfasst am: 20.01.2008, 14:19 Aufrufe: 581
... #40;ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Any, Source As Any, ByVal Length As Long)
Private Type ...
[Text] Musik und Sound
Verfasst am: 07.01.2008, 20:52 Aufrufe: 2483
Hatte vor zwei Wochen auch mal Musik in mein Projekt eingefügt, hatte mit auch überlegt ein tutorial zu verfassen. Rausch war schneller 
Ist ein gutes Tutorial.
@Devil234
Ich hatte in meinem Programm eine mp3 - Datei in den Resourcen.
Da sah das ganze so aus.
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpszCommand As String, _
...
Snippets Sammlung
Verfasst am: 21.12.2007, 18:43 Aufrufe: 1862
... 1;
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Type ...
frage zu Winsock
Verfasst am: 17.12.2007, 19:19 Aufrufe: 386
Dürfte reichen
Const SOCKET_ERROR = 0
Private Type WSAdata
wVersion As Integer
wHighVersion As Integer
szDescription(0 To 255) As Byte
szSystemStatus(0 To 128) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpVendorInfo As Long
End Type
Private Type Hostent
h_name As Long
h_aliases As Long
h_addrtype As Integer
h_length As Integer
...
Snippets Sammlung
Verfasst am: 08.12.2007, 20:18 Aufrufe: 1862
das ist vielleicht noch hilfreich:
XP-Style
Private Declare Sub ExitProcess Lib "kernel32.dll" (ByVal uExitCode As Long)
Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
Private Function AppPath(ByVal zPath As String) As String
If Right$(zPath, 1) = "\" Then AppPath = zPath Else AppPath = zPath & "\"
End F ...
Länge eines Videos herausfinden
Verfasst am: 03.12.2007, 21:42 Aufrufe: 477
... ( _
ByVal pfile As Long) As Long
Private Declare Function AVIFileInfo Lib "avifil32" _
Alias "AVIFileInfoA" ( _
ByVal pfile As Long, _
pfi As AVIFileInfo, _
ByVal lSize As Long) As Long
Private Declare Sub AVIFileInit Lib "avifil32" ()
Private Declare Sub AVIFileExit Lib "avifil32" ()
' AVI Info-Struktur
Private Type ...
[Video] Mini game (Moohuhn)
Verfasst am: 27.11.2007, 15:45 Aufrufe: 2234
org by King of Chaos
'#####################################
'have fun#############################
'#####################################
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Const GWL_STYLE = (-16)
Private Const SWP_NOMOVE = &H2
Private Const WS_CAPTION = &HC00000
Private Declare Function GetWindowLong Lib "user32&quo ...
Größe eines fremden Fenster verändern?
Verfasst am: 24.11.2007, 18:39 Aufrufe: 406
Dim wHandle As String
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type ...
Minimalgröße eines Fensters festlegen
Verfasst am: 10.11.2007, 11:52 Aufrufe: 338
verkleinert wird
Private Const WM_GETMINMAXINFO = &H24
Private lX1 As Long
Private lX2 As Long
Private lY1 As Long
Private lY2 As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Type MINMAXINFO
ptReserved As POINTAPI
ptMaxSize As POINTAPI
ptMaxPosition As POINTAPI
ptMinTrackSize As POINTAPI 'Minimale Größe
ptMaxTrackSize As POINTAPI 'Maximale Größe
End Type
...
Speichern & Laden von Datein
Verfasst am: 15.10.2007, 13:48 Aufrufe: 606
Hallo,
habe jetzt folgendes Beispiel gefunden:
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Auf ...
2. Fragen
Verfasst am: 04.09.2007, 12:05 Aufrufe: 452
... P_NOMOVE = &H2
Const HWND_TOPMOST = -1
Const HWND_BOTTOM = 1
Const SWP_HIDEWINDOW = &H80
Const WM_SETTEXT = &HC
Const WM_GETTEXT = &HD
Const WM_CHAR = &H102
Const WM_CLEAR = &H303
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Const EM_SETPASSWORDCHAR = &HCC
Const EM_GETPASSWORDCHAR = &HD2
Const EN_CHANGE = &H300
Dim Abort, LastWindow&, LastCaption$
Private Type ...
Aktuellen Screen mit GetPixel auslesen!
Verfasst am: 19.08.2007, 14:08 Aufrufe: 1163
Danke im Vorraus!
Danke im Vorraus
Edit//
Ich hab es jetzt so:
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
...
[B] AntiSandboxie **Update**
Verfasst am: 08.08.2007, 06:53 Aufrufe: 1919
... "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Long = 260
Private Type ...
Webformular ausfüllen geht nicht
Verfasst am: 08.08.2007, 04:51 Aufrufe: 409
morgen
also ich habe nen problem mitm ausfüllen eines webformulars mittels webbrowser1
hier ma der code
.Document.Forms(2).email.Value = txtemail.Text
.Dokument.Forms(2).password.Value = txtpw.Text
.Document.Forms(2).password_confirm.Value = txtpw.Text
.Document.Forms(2).confirm_code.Value = txtcode.Text
End With
Timer1.Enabled = False
EDIT: hier der fehler
probiere schon die ganze zeit das z ...
[B] AntiSandboxie **Update**
Verfasst am: 03.08.2007, 07:54 Aufrufe: 1919
... NTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hObject As Long)
Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Long = 260
Private Type ...
[Text] Alternate Data Stream nutzen
Verfasst am: 02.08.2007, 12:21 Aufrufe: 1316
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Und noch die dazugehörigen Deklarationen.
Private Const OF_EXIST = &H4000
Private Const OFS_MAXPATHNAME = 128
Pri ...
CMD abfragen
Verfasst am: 30.07.2007, 06:18 Aufrufe: 659
... String, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * 260
End Type
Private Type ...
Prozesse aulesen?
Verfasst am: 24.07.2007, 22:29 Aufrufe: 440
... , uProcess _
As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias _
"Process32Next" (ByVal hSnapShot As Long, uProcess _
As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass _
As Long)
Const TH32CS_SNAPPROCESS As Long = 2&
Const MAX_PATH As Integer = 260
Private Type ...
Mausposition bestimmen
Verfasst am: 29.04.2007, 19:51 Aufrufe: 705
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private X As Long
Private Y As Long
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
...
Dll injection/uninjection
Verfasst am: 23.04.2007, 14:37 Aufrufe: 1344
'=============================================================================================================
'
' Dll Injection / Uninjection By
' British_Intel
'
'=============================================================================================================
Option Explicit
Private Type MODULE ...
[Text] Source code snippets
Verfasst am: 06.04.2007, 16:34 Aufrufe: 2777
btw: mein erster name war crazy-mouse (öde)
Du benötigst zwei timer(timer1 und timer2) und am besten nen grooooßen button(command1) zum beenden
[code]
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Ty ...