상당한 노다가 덕분에 많은 부분이 진행 되었습니다.
추석전후에 완성될듯 하며 완성도면에서도 지금까지 만든 런처에 비해서 상당한 수준이라고 말할수 있을 정도입니다.
그래서 이번버전 공개를 신중하게 할생각입니다. 'ㅁ';
넌 누구냐?
Private Declare Function WritePrivateProfileString Lib _
"kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String _
, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String _
, ByVal nSize As Long, ByVal lpFileName As String) As Long
'---읽기 처음
Dim REA As String * 255, REB As String
Dim RES As String, REK As String, REF As String
REF = "option.ini" '파일명
RES = "RE" '섹션
REK = "TEST1" '키
REB = GetPrivateProfileString(RES, REK, "값 없음", REA, 255, App.Path & "\" & REF)
REVI = Left(REA, REB) '변수값 출력
Text1.Text = REVI '값 출력
'---읽기 끝
'---쓰기 처음
Dim WRS As String, WRK As String, WRF As String, WRVA As String
WRF = "option.ini" '파일명
WRS = "RE" '섹션
WRK = "TEST1" '키
WRVA = Text2.Text '입력 값
WritePrivateProfileString WRS, WRK, WRVA, App.Path & "\" & WRF
'---쓰기 끝
+_+
검색기를 코드를 만든건 한달전입니다만.. 귀찮아서 미루다가 이번에 런처 1.2에 포함시킬려고 만들었습니다.
약 20여개의 검색엔진을 이용 할 수 있으며 기본적으로 구글을 사용합니다.
옥션과 지마켓같은 쇼핑몰도 함께 포함하였고, 이미지 검색과 외국어 검색도 가능합니다.
필요한 설명은 다한것 같네요 'ㅁ';; 만들기는 쉬운데 노가다 작업이 많아서 헉~헉~
X-SYLPHID™ Launcher V1.2 for Search 다운로드오늘 이분꿈 꿨음
스토리는 대충 이분 마눌과 사이가 엄청 좋아 부비부비 그런데 이분이 바로옆에 계셨다는 폭격당할까 조마조마....
9/1일 드림위즈에서 홈페이지 서비스 종료를 하였습니다.
BGM은 이제 포기 해야하싶어... 처음엔 야후의 지오시티를 이용해볼려고 했으나 광고창이 떡허니 떠버려서 GG
그리고 외국 서버중에 350메가에 기타등등 속도말고는 정말 빵빵한 지원이 있는곳을 찾았습니다. 솔찍히 속도야 어느정도만 나오면 되는 문제이기 때문에 비록 외국서버지만 정착할려고 했으나 BGM 플레이 리스트를 못읽어 오는 'ㅁ';; 젠장...스러운 일이 발생..
그래서 마지막으로 컴내꺼로 와보니 이런...최고입니다. 아직까지도 무료계정에 기타등등 많은 기능이 있군요.
기본적으로 무료웹호스팅은 운영하지않으면 불이익이 생길수 있기때문에 오랜만에 간단한 홈페이지를 만들어 볼까합니다.
블로그와 데이타센터 그리고 프로젝트 게시판을 연결시키고 차후에는 홈페이지에서 모두 연동될수 있도록 해볼생각입니다.
오랜만에 긴글적는군요 -.-...긴글 안좋아하는데;;
그럼 홈페이지나 만들러 가야겠습니다.
유흥가 밤호수? 호객군들