PureBasic Forums - English

Hello,

Windows Installers are not signed. :/

Working as expected, but WindowsDefender SmartScreen is nagging.

Thank you.

Link to Image

Proper Kill (Process) by ID or Name

#TH32CS_SNAPHEAPLIST = $1
#TH32CS_SNAPPROCESS = $2
#TH32CS_SNAPTHREAD = $4
#TH32CS_SNAPMODULE = $8
#TH32CS_SNAPALL = #TH32CS_SNAPHEAPLIST | #TH32CS_SNAPPROCESS | #TH32CS_SNAPTHREAD | #TH32CS_SNAPMODULE
#TH32CS_INHERIT = $80000000
#INVALID_HANDLE_VALUE = -1
#MAX ...

you might try PureFile.

havent tested it

Make your counter a Quad
Quad .q 8 Bytes Length -9223372036854775808 to +9223372036854775807

a.q=590254079997
Repeat
a=a+1
Debug a
Until a=590254080000

P.S.:
Yes it does fill free disk space to 0 bytes, but I can't use it because it doesn't fill free disk space with 00's

What is the ...

Procedure CreateFilledFile(Name.s, fsize.q)
Protected file.l = CreateFile(#PB_Any, Name)
If file
If fsize<=0
CloseFile(file)
ProcedureReturn #True
Else
FileSeek(file, fsize-1)
WriteByte(file, 0)
CloseFile(file)
ProcedureReturn #True
EndIf
EndIf
EndProcedure ...

this may help

http://www.purebasic.fr/english/viewtopic.php?p=152551#152551

but of course, you must determine how much FREE SPACE do you have on the drive, exceeding size with 1 byte will produce ZeroFile (0 Bytes)


quick test

Procedure.q GetDiskSpace(drive$,type$)
Value.q=-1
If ...

thanks ... nice..

#TH32CS_SNAPHEAPLIST = $1
#TH32CS_SNAPPROCESS = $2
#TH32CS_SNAPTHREAD = $4
#TH32CS_SNAPMODULE = $8
#TH32CS_SNAPALL = #TH32CS_SNAPHEAPLIST | #TH32CS_SNAPPROCESS | #TH32CS_SNAPTHREAD | #TH32CS_SNAPMODULE
#TH32CS_INHERIT = $80000000
#INVALID_HANDLE_VALUE = -1
#MAX_PATH = 260
#PROCESS32LIB = 9999 ...

#TH32CS_SNAPHEAPLIST = $1
#TH32CS_SNAPPROCESS = $2
#TH32CS_SNAPTHREAD = $4
#TH32CS_SNAPMODULE = $8
#TH32CS_SNAPALL = #TH32CS_SNAPHEAPLIST | #TH32CS_SNAPPROCESS | #TH32CS_SNAPTHREAD | #TH32CS_SNAPMODULE
#TH32CS_INHERIT = $80000000
#INVALID_HANDLE_VALUE = -1
#MAX_PATH = 260
#PROCESS32LIB = 9999 ...

i cant understand either .. but ... why poke?

I want to output all numerical values to be able to imagine Float.

you mean to transform a number from long (or any) to float?

none taken ... i still find this usefull tip.. and thanks for posting

Procedure CreateFilledFile(Name.s, fsize.q)
Protected file.l = CreateFile(#PB_Any, Name)
If file
If fsize<=0
CloseFile(file)
ProcedureReturn #True
Else
FileSeek(file, fsize-1)
WriteByte(file, 0)
CloseFile(file ...

Code updated For 5.20+

Procedure CreateFilledFile(Name.s,fsize.q)
CreateFile(0,Name)
FileSeek(0,fsize-1)
WriteByte(0,0)
CloseFile(0)
EndProcedure Test CreateFilledFile("Temp.temp",123) Should create "Temp.temp" with exact size of 123Bytes

dont know if was posted/or was in help ... but it's ...

thank you ... LuCiFeR[SD] .. works ...
@Shannara if your question was addressed to me .. well This code is not mine... forgot to mention that i got it from this forum ... ... a long time ago...

WinsockFunctions.pb


Declare AcceptConnection(sck)
Declare AssignSocketIndex()
Declare CheckHostType(host$)
Declare CloseSocket(sck.l)
Declare ConnectTask(sck)
Declare ConnectTCP(host$,port.l,thrRes)
Declare CreateSocket(ProtocolType.l)
Declare FindSocketIndex(sck)
Declare.s GetHostName(h ...

aaaaaaa... back on topic ... how can i make this code to work on more than one webgadget? ...

Edit:
My problem lies here
->Shared<- WebGadget_Document.IHTMLDocument2_FIXED
on Webgadget_Open/Write/Close Procedures

i tried Unsucessfully with LinkedLists .. (and that's kind'a what i need)

2nd ...