Hi !
Where is the error ?
Thanks
Structure NETRESOURCE
dwScope.l
dwType.l
dwDisplayType.l
dwUsage.l
lpLocalName.l
lpRemoteName.l
lpComment.l
lpProvider.l
EndStructure
*buffer_resultat=AllocateMemory(1,20000,0)
*buffer_taille=AllocateMemory(1,20000,0)
handle=WNetOpenEnum_(#RESOURCE ...
Search found 17 matches
- Thu Dec 11, 2003 9:47 pm
- Forum: Coding Questions
- Topic: Help ! on Shared Files
- Replies: 3
- Views: 1240
- Mon Dec 08, 2003 9:01 pm
- Forum: Coding Questions
- Topic: What Wrong (NetWork) ?
- Replies: 0
- Views: 909
What Wrong (NetWork) ?
Hi
How to put on this
res=WNetOpenEnum_(#RESOURCE_GLOBALNET,#RESOURCETYPE_ANY,0, #NULL, @nethandle)
res=WNetEnumResource_(res, @entries, @network, @size)
How to put on this
res=WNetOpenEnum_(#RESOURCE_GLOBALNET,#RESOURCETYPE_ANY,0, #NULL, @nethandle)
res=WNetEnumResource_(res, @entries, @network, @size)
- Wed Dec 03, 2003 7:01 pm
- Forum: Coding Questions
- Topic: How to show Files shared (NetWork)
- Replies: 0
- Views: 1193
How to show Files shared (NetWork)
Hi, All
How to show Files shared (ExamineDirectory) ?
This code no work
Thank for Help !
Procedure dir(repertoire$)
ExamineDirectory(0,repertoire$,"")
Repeat
Delay(1)
dirid=NextDirectoryEntry()
Select dirid
Case 1 ; fichier
file.s=DirectoryEntryName()
Debug file.s
Case 2
If ...
How to show Files shared (ExamineDirectory) ?
This code no work
Thank for Help !
Procedure dir(repertoire$)
ExamineDirectory(0,repertoire$,"")
Repeat
Delay(1)
dirid=NextDirectoryEntry()
Select dirid
Case 1 ; fichier
file.s=DirectoryEntryName()
Debug file.s
Case 2
If ...
- Mon Jun 16, 2003 11:01 am
- Forum: Coding Questions
- Topic: know the size of folder
- Replies: 2
- Views: 1654
know the size of folder
Hi,
How to know the size of folder as that FileSize(NomFichier$) ?
sorry for my english
Thank

How to know the size of folder as that FileSize(NomFichier$) ?
sorry for my english
Thank
- Fri Jun 13, 2003 8:24 am
- Forum: Coding Questions
- Topic: know the email by defect
- Replies: 4
- Views: 1802
- Thu Jun 12, 2003 9:20 am
- Forum: Coding Questions
- Topic: know the email by defect
- Replies: 4
- Views: 1802
know the email by defect
How to know the email by defect ? (windows)
Thanks
Thanks
- Thu Jun 12, 2003 7:48 am
- Forum: Coding Questions
- Topic: WebControl and right clicking
- Replies: 12
- Views: 4690
- Tue Jun 10, 2003 9:34 am
- Forum: Coding Questions
- Topic: To stop a connection Internet with AOL?
- Replies: 4
- Views: 1763
- Mon Jun 09, 2003 10:51 am
- Forum: Coding Questions
- Topic: To stop a connection Internet with AOL?
- Replies: 4
- Views: 1763
To stop a connection Internet with AOL?
Hi all,
How to make for To stop a connection Internet with AOL?
Thanks
How to make for To stop a connection Internet with AOL?

Thanks
- Thu May 29, 2003 5:08 pm
- Forum: Feature Requests and Wishlists
- Topic: [Implemented] PureBasic For MAC OS ?
- Replies: 17
- Views: 10923
[Implemented] PureBasic For MAC OS ?
One Day ? 

- Mon May 26, 2003 7:45 pm
- Forum: Coding Questions
- Topic: MSDOS
- Replies: 5
- Views: 1946
- Mon May 26, 2003 6:48 pm
- Forum: Coding Questions
- Topic: MSDOS
- Replies: 5
- Views: 1946
MSDOS
Hi,
It is possible to make software for MSDOS with PureBasic?

It is possible to make software for MSDOS with PureBasic?
- Fri May 23, 2003 7:14 pm
- Forum: Coding Questions
- Topic: SMTP With password ?
- Replies: 1
- Views: 1621
- Thu May 22, 2003 6:45 pm
- Forum: Coding Questions
- Topic: Protection of software
- Replies: 19
- Views: 5766
Protection of software
What think of this protection? :?
a1$="789-HJ4-"
a2$="UP10251"
a3$="-CP985"
a$=a1$+a2$+a3$ ; the code of sofware
bon$ = MD5Fingerprint(a$,2)
Debug bon$
;SetClipboardText(bon$)
b$ = InputRequester("","", "")
code$=MD5Fingerprint(b$,2)
Debug code$
If code$=bon$ ; comparaison
Debug "Yes ...
a1$="789-HJ4-"
a2$="UP10251"
a3$="-CP985"
a$=a1$+a2$+a3$ ; the code of sofware
bon$ = MD5Fingerprint(a$,2)
Debug bon$
;SetClipboardText(bon$)
b$ = InputRequester("","", "")
code$=MD5Fingerprint(b$,2)
Debug code$
If code$=bon$ ; comparaison
Debug "Yes ...
- Sun May 18, 2003 4:52 pm
- Forum: Coding Questions
- Topic: Delete Files From Temp\Temporary Internet Files\Recent....
- Replies: 16
- Views: 6226
delete file ?
Yes, but for delete file ?
this code no work
Thank
this code no work
Code: Select all
DeleteFile(C:\Documents and Settings\username\Temporary Internet Files\xxx.html)