697
Fórumozást segítő progik forumozóktól forumozóknak. Avagy a \"Mi kellene az SG-nek?\" kérdésre kliens oldali megoldások.
-
blackgamer #1 Sziasztok!
Gondolom nem én vagyok az egyedüli aki "életet megkönnyítő" progikat szokot írogatni.
És mivel elkészült a harmadik SG-re szánt programom, talán aktuális lehet egy topic ahol ilyen fórumozást megkönnyítő stuff-okról lehet beszélgetni.
Sokan talán nem is tudják, hogy sok extra funkciót/könnyebben használható kezelőfelületet/új formavilágot lehet készíteni weboldalakhoz.
Persze ezek megírása általában macerás és nyakatekert, de ha szerver oldalon nincs jól megoldva, kliens oldalon talán kivitelezhető.
Várok ide mindenkit, fórumozót, programozót, akit érdekel a téma.
Kinek milyen új ötlete, tapasztalata, programja van, amivel érdekesebbé, jobbá tehetjük a fórumozással töltött időt.
Eddig megírt programjaim (több infó weboldalamon):
Linkelő SG.hu fórumához
![]()
Ha már unod az egyenkénti linkelést SG.hu fórumába.
Kedvencekhez hozzászólás, és új topic figyelõ (újSáG)
![]()
Letöltés
Indítás gombra bökve a program percenként ellátogat az SG fórum oldalára, és hangjelzéssel és vizuálisan értesít ha új topic nyílt, vagy ha kedvenc topicjaidba új üzenet érkezett.
Aláírás cserélő SG.hu fórumához
![]()
Letöltés
Szeretnéd kedvenc vers/dalszöveg/film idézeteidet aláírásodban autómatikusan cserélni? Ez a progi megoldja neked. -
laliking #2 jóak a progik...
bár nem nagyon értek a programozáshoz, de lehetne egy olyat ami a designet ceréli -
#3
firefoxhoz a web developer toolt leszeded, és lehet egyéni css-ket húzni az oldalakra (a meglévőt átírva) -
laliking #4 link? -
#5
link -
Cicero #6 Bocs, de ennek semmi értelme -
#7
Jóak a progik! 
-
#8
kicsit normalisabb kulsovel is megaldhatnad... -
sirdond #9 szerintem frankók a progik :D -
#10
áz
cickónak meg egy bant
plshtx -
#11
Nekem is azt kell mondjam, hogy semmi értelmét nem látom ezeknek, de a szándék a fontos :) -
Cicero #12 Mert más a véleményem? -
blackgamer #13 köszi az elismerő szavakat! :)
értelem? szeretek programozni és programokat/weblapokat piszkálni, ez amolyan hobbi, gondolom másoknak más a hobbi,
nem vagyunk egyformák!
tudom puritán a kinézet, sajna design kialakításához nincs türelmem és tehetségem se
de ha esetleg lesznek újabb progik, azokba már szeretnék skin-elhetőséget beépíteni -
#14
mert 10-ből 10 ember is ezt mondaná -
Cicero #15 Spam progit nemtudsz írni? :::DDdd -
blackgamer #16 tékelőre gondolsz? tudok, de nem akarok 
-
Cicero #17 Naa!! Olyat!! :::Ddd -
#18
-
#19
nem akarsz olyan programot írni, ami eltávolítja a büntetőpontokat? 
-
#20
olyan progit ami feltöri az sg-t és egy csomo cicis képet rak be :) -
#21
gumiszoba topiknyitó figyelő kéne + gumikereső :O
A legtolsó 100 hozzászólót figyelné a gumiból, userinfóból levenné h kinek hány gumitopikja van, és amikor nyílik egy topik, akkor összehasonlítaná kinek nőtt meg .
[kémked] -
#22
Szerintem szép dolog a programozás, és még szebb, ha valaki a szabadidejében írt programokat nagyközönség elé tárja, és ingyen megosztja velünk.
-
Aspyrin #23 bizony
[majd emlékezteti rá amikor híres és gazdag lesz] -
#24
Az SG-re írt programokból? 
-
Aspyrin #25 dehogy, amikor majd bill gétsz után átveszi a májkroszoftot
-
Jaaaaaa....... Értem.
-
blackgamer #27 remélem eljön az az idő :) -
Loco #28 Buta-e vagy figyelő kéne téged kiszűrni. -
izb #29 
-
#30
Sg Spamtool? :o) -
#31
és ezek milyen böngészővel működnek rendesen? :p -
#32
Anti-Cicero Protection -
#33
:o) -
#34
Jóak a proggik, de nem műxenek vállalati tűzfalak és hogy mást ne mondjak HTTP Proxy mögül. Én csináltam némi módosítást rajta, van egy új LoadFromURL rutin, ami már átmegy a proxyn. Ha gondolod, el is küldöm mail-ban a procedure-t. Ha ezt beépíted (kicsit bétás), akkor többen tudják majd használni.
-
#35
Használata pl.:
LoadFromURL2('www.sg.hu','/forum.php','proxyuser','proxypassword','','');
procedure TForm1.LoadFromURL2(Site,Document,ProxyUser,ProxyPWD,User,PWD: string);
var
hOpenHandle, hConnectHandle, hResourceHandle:HINTERNET;
dwReserved, dwStatus: DWORD;
pStatus:pointer;
dwStatusSize:DWORD;
buf: array[0..16383] of byte;
dwBytesRead: cardinal;
st: TMemoryStream;
begin
try
hOpenHandle := InternetOpen('MSIE',
INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hConnectHandle := InternetConnect(hOpenHandle,
PChar(Site),
INTERNET_INVALID_PORT_NUMBER,
nil,
nil,
INTERNET_SERVICE_HTTP,
0,0);
try
hResourceHandle := HttpOpenRequest(hConnectHandle, 'GET',
PChar(Document),
nil, nil, nil,
INTERNET_FLAG_KEEP_CONNECTION,
0);
try
HttpSendRequest(hResourceHandle, nil, 0, nil, 0);
pStatus:=addr(dwStatus);
dwStatusSize:=sizeof(dwStatus);
dwReserved:=0;
HttpQueryInfo(hResourceHandle,
HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE,
pStatus,
dwStatusSize,
dwReserved);
if dwStatus=HTTP_STATUS_PROXY_AUTH_REQ then
begin
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_USERNAME,
PChar(ProxyUser),
Length(ProxyUser)+1);
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_PASSWORD,
PChar(ProxyPWD),
Length(ProxyPWD)+1);
HttpSendRequest(hResourceHandle, nil, 0, nil, 0);
pStatus:=addr(dwStatus);
dwStatusSize:=sizeof(dwStatus);
dwReserved:=0;
HttpQueryInfo(hResourceHandle,
HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE,
pStatus,
dwStatusSize,
dwReserved);
end;
if dwStatus=HTTP_STATUS_DENIED then
begin
InternetSetOption(hResourceHandle,
INTERNET_OPTION_USERNAME,
PChar(User),
Length(User)+1);
InternetSetOption(hResourceHandle,
INTERNET_OPTION_PASSWORD,
PChar(PWD),
Length(PWD)+1);
HttpSendRequest(hResourceHandle, nil, 0, nil, 0);
end;
st:=TMemoryStream.Create;
try
repeat
InternetReadFile(hResourceHandle, @buf, 8192, dwBytesRead);
st.Write(buf, dwBytesRead);
until dwBytesRead = 0;
st.Position:=0;
memo1.Lines.LoadFromStream(st);
finally
st.Free;
end;
finally
end;
finally
InternetCloseHandle(hResourceHandle);
end;
finally
InternetCloseHandle(hConnectHandle);
end;
finally
InternetCloseHandle(hOpenHandle);
end;
end; -
#36
Inkább bemásoltam, ez a lényege. Ha tovább akarod fejleszteni, nézz utána a wininet.pas programozásásnak... -
#37
Az újság nagyon hasznos, a többi sem rossz éppenséggel. -
Cicero #38 blackgamer pls egy spam progit!44 :D -
#39
meg jó lenne vmi olyan is, ami kiszűri cicero faszságait... -
#40
#32
htxvm
